Здравствуйте, Northsoft, Вы писали:

N>Создаю форму f_progress:=TF_Progress.Create() и показываю её с помощью ShowModal. В OnShow показываемой формы забита куча кода, которая делает очень много работы, и фактически форма лишь отображает процесс её выполнения. Однако в начале OnShow поставлены Self.Show() и Application.ProcessMessages(), также вызовы Application.ProcessMessages() выставлены везде после перерисовки формы. Но форма всё равно не показывается, пока не отработает весь обработчик OnShow. Что ещё нужно указать в OnShow, чтобы форма корректно отрисовалась и далее корректно отрисовывалась по Application.ProcessMessages() ?


Может быть попробовать что-то в духе:

const WM_DoFuckingWork = WM_USER + 1;

PostMessage(f_progress.Handle, WM_DoFuckingWork, 0, 0);

procedure DoDoFuckingWork(var AMessage: TMessage); message WM_DoFuckingWork;

?