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

← →
Андрусь © (2002-12-10 14:23) [0]

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

← →
Diouzshev (2002-12-10 14:29) [1]

странно!
все должно быть ОК!
если так делаешь:
procedure btnShowDialogClick(Sendr : TObject); begin if dlgStartAlgorithm.ShowModal = mrOk then begin StartAlgorithm; end; end;

← →
Skier © (2002-12-10 14:35) [2]

>Андрусь

Не поможет ?

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) [3]

Сообщения системы обработал?

← →
Андрусь © (2002-12-10 18:21) [4]

>Skier,Diouzshev
Так было опробавано ранее,так не работает.
>Anatoly Podgoretsky
Какие вы имели ввиду.

← →
FreeLancer © (2002-12-10 18:23) [5]

Запускай его не из этой формы, а в форме только спрашивай "Запустить или не стоИт?"

← →
Андрусь © (2002-12-10 19:28) [6]

>FreeLancer © (10.12.02 18:23)
А что по твоему описано выше.

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. Возможно, есть смысл вынести долго работающий алгоритм в отдельный поток.

Да нет,всё равно работает как ранее.
1.MessageBox там не подойдёт - там сосложнее(настройки и т.п.).
2.Мне кажется,нет в этом смысла.Пользователь не должен ничего трогать в течении работы алгоритма.

Скрытие формы перед запуском долго выполн. алгоритма Найти похожие ветки