Корректная прорисовка с занятым основным потоком??

[Freezer]

Здравствуйте!
У меня следующая проблема. Нужно показать форму с анимацией или бегающим прогресбаром перед выполнением длидельного процеса. Процесс выполняется в основном потоке программы, перенести в отдельный поток не могу и вставить строчку типа Form2.Refresh тоже, так так выполняется скрипт. Возможно ли как то организовать показ формы независимо, чтобы сама прорисовывалась???

Чтобы можно было что-то типа:

procedure TForm1.Button1Click(Sender: TObject);
begin
begin
  ShowProgressIndicator;
  try
    /// выполнение скрипта
  finally
    HideProgressIndicator;
  end;
end;

Пробовал отдельным потоком посылать меседжы на прорисовку - не идет, основной поток обрабатывает их уже после завершения скрипта.
Так же пробовал засунуть форму в DLL, но все равно у меня прорисовком занимается основной поток.
Пробовал создавать отдельный TApplication в DLLке, тоже не пошло.

Есть ли какие-то идеи как это сделать??

[_Engine_]

Тут недавно, чтобы особо не заморачиваться потоками, посоветовали попробовать
http://www.delphikingdom.ru/asp/arti...ArticleID=1355

[psycho-coder]

Скрипт как выполняется? Может Application.ProcessMeseges прокатит?

[Freezer]

Сообщение от _Engine_

Тут недавно, чтобы особо не заморачиваться потоками, посоветовали попробовать
http://www.delphikingdom.ru/asp/arti...ArticleID=1355

Довольно интересно, но в данном случае не подойдет. Прогрес должен показываться и вовремя создания и загрузки напр. редактора скриптов (5-7сек), а там работа с формами, поэтому создание совать в поток никак не выйдет.

Скрипт как выполняется? Может Application.ProcessMeseges прокатит?

Скрипт выполняется движком FastScript, а там про многопоточность можно забыть. И лезть в скрипт с Application.ProcessMeseges тоже не выйдет, на этапе проектирования я не знаю что там за код будет. С отдельного же потока вызов Application.ProcessMeseges ничего не дал. Поток на нем стопорится и ждет пока собственно сам Application не освободится чтобы сделать ProcessMeseges.

Где-то нашел информацию что это можно сделать через ручную загрузку DLL, но в всех примерах форму из DLL наоборот стараются подсунуть приложению "как родную", мне же нужно наоборот.

[evg_m]

У DLL есть свой application но нет цикла обработки сообщений ( application.run ).
попробуй загрузить DLL и запустить там такой цикл програмно(если получится),. Правда как управлять им извне (чтобы закончить по завершению скрипта) и как он будет себя вести мне не понятно.
Если он будет в том же потоке что и скрипт то работать будет что-то одно (скрипт или цикл(Run)?
Если в разных потоках будут ли идти сообщения чтобы работал Application.run?

[psycho-coder]

Интересно. Очень интересно... Есть над чем подумать

[Freezer]

Сообщение от evg_m

У DLL есть свой application но нет цикла обработки сообщений ( application.run ).
попробуй загрузить DLL и запустить там такой цикл програмно(если получится),. Правда как управлять им извне (чтобы закончить по завершению скрипта) и как он будет себя вести мне не понятно.
Если он будет в том же потоке что и скрипт то работать будет что-то одно (скрипт или цикл(Run)?
Если в разных потоках будут ли идти сообщения чтобы работал Application.run?

Ничего не вышло. Если брать в dll'ке

Application.CreateForm(TfmProgressIndicator, MyForm);
Application.Run;

то проект вроди никак не реагирует, но слетает с ошибками при закрытии.

Попробовал создать свою переменную DllApp : TApplication,

  DllApp := TApplication.Create(nil);
  DllApp.Initialize;
  DllApp.CreateForm(TfmProgressIndicator, MyForm);
  DllApp.Run;

Поведение интересное, код стопориться на DllApp.Run, показывается дочерняя форма, далее вроде все нормально, GUI работает и т.п. если нажать на закрытие основной формы проекта то код начинает идти дальше. как будто мы прибили DllApp и основной Application дальше работает нормально. При втором нажатии на закрыть основную форму все корректно завершается.

При исполнении этих же действий но в отдельном потоке dll'ки следующее поведение:
При работе с Application - форма не показывается, проект начинает тупо реагировать на действия юзера слетает при закрытии.
При работе с DllApp - форма показывается и вроде все нормально, вот только все равно она обрабатывается основным Application программы и, как следствие, стопориться прорисовка при занятости основного потока.

Есть идеи????