Не прорисовывается окно

← →
AKul © (2004-02-17 15:03) [80]

> Sphinx © (17.02.04 14:46) [79]
> procedure TMainForm.btStartClick(Sender: TObject);
> begin
> if not Assigned(ChartingForm) then
> ChartingForm:=TChartingForm.Create(Self);
>
> if not Assigned(ProgressForm) then
> ProgressForm:=TProgressForm.Create(Self);> ProgressForm.Show;
>
> ThEnd:=False;
> RThread.Resume;
>
> while not(ThEnd) do
> Application.ProcessMessages;

На счет цикла с Application.ProcessMessages, думаю, повторять не стоит.

> Хм...как видите полностью выйти из обработчика нажатия нельзя,

Можно!!! Смотрите пост Юрий Зотов © (17.02.04 14:44) [78]
Особое внимание обратите на TForm1.Start и TForm1.Finish.
Юрий Зотов Вам специально в них комментарии написал, чтобы было понятно, что куда вставлять.

← →
Юрий Зотов © (2004-02-17 15:06) [81]

Synchronize - выкинуть в помойку. Оба. Это получается та же самая отрисовка за счет задержки расчета.

Вместо Synchronize используйте PostMessage (но не SendMessage) и отправляйте форме любое сообщение (например, WM_USER + 100). Данные передавайте в параметрах сообщения. Получив сообщение, форма обновляет, что нужно. Все.

Не прорисовывается окно Найти похожие ветки