Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Скрытие формы перед запуском долго выполн. алгоритма [D6, Win2k]

Андрусь © (2002-12-10 14:23:00)
Привет всем!Такой вопрос возник:в приложении запускается долго работающий алгоритм proc1.Он запускается из модальной формы,которая перед запуском закрывается.На деле же получается,что форма не прячется,а висит до тех пор пока proc1 не отработает.Один "умный" товарищ насоветовал запускать proc1 на событие OnIdle приложения.Но по-моему это не выход. Посоветуйте,что делать,чтобы работало,как задумано.Зараннее всем благодарен!

Александр Спелицин (2002-12-13 00:49:00) [1]
procedure btnShowDialogClick(Sendr : TObject);
var
StartOK: boolean;
begin
with TDlgStartAlgorithm.Create(nil) do
try
StartOK := ShowModal = mrOk
finally
Free
end;
if StartOK then
begin
Application.ProcessMessages;
StartAlgorithm;
end;
end;

Андрусь (2002-12-12 14:43:00) [2]
Да нет,всё равно работает как ранее.
1.MessageBox там не подойдёт - там сосложнее(настройки и т.п.).
2.Мне кажется,нет в этом смысла.Пользователь не должен ничего трогать в течении работы алгоритма.

Юрий Зотов (2002-12-10 19:51:00) [3]
procedure btnShowDialogClick(Sendr : TObject);
var
StartOK: boolean;
begin
with TDlgStartAlgorithm.Create(nil) do
try
StartOK := ShowModal = mrOk
finally
Free
end;
if StartOK then StartAlgorithm
end;

И еще пара слов.

1. Вообще-то, для таких вещей существует MessageBox. Зачем плодить лишние формы?

2. Возможно, есть смысл вынести долго работающий алгоритм в отдельный поток.

Андрусь (2002-12-10 19:28:00) [4]
>FreeLancer © (10.12.02 18:23)
А что по твоему описано выше.

FreeLancer (2002-12-10 18:23:00) [5]
Запускай его не из этой формы, а в форме только спрашивай "Запустить или не стоИт?"

Андрусь (2002-12-10 18:21:00) [6]
>Skier,Diouzshev
Так было опробавано ранее,так не работает.
>Anatoly Podgoretsky
Какие вы имели ввиду.

Skier (2002-12-10 14:35:00) [7]
>Андрусь

Не поможет ?

var
StartAlgorithm : TStartAlgorithm;
begin
StartAlgorithm := TStartAlgorithm.Create(...)
try
if StartAlgorithm.ShowModal = mrOk then begin
StartAlgorithm.Hide;
StartLongAlgorithm;
end; //if
finally
FreeAndNil(StartAlgorithm);
end; //try

Anatoly Podgoretsky (2002-12-10 14:35:00) [8]
Сообщения системы обработал?

Diouzshev (2002-12-10 14:29:00) [9]
странно!
все должно быть ОК!
если так делаешь:
procedure btnShowDialogClick(Sendr : TObject); begin if dlgStartAlgorithm.ShowModal = mrOk then begin StartAlgorithm; end; end;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »