Анимация пока создается форма

[TTTimon]

В проекте несколько форм: есть главная (меню) + ИСТОРИЯ (достаточно тяжелая форма) + другие

Задача:

по нажатию в МЕНЮ на кнопку, начинается создание ИСТОРИИ и в это время проигрывается FloatAnimation для вращения индикатора (это круг с изображением).

нужно по завершению создания формы прекратить анимацию и показать форму

 

Как делаю:

• на главной форме есть F: TForm;
• при создании формы: F := nil;
• при нажатии на кнопку: 1) стартует анимация 2) F := TF_History.Create(nil);
• в процессе проверяю создание формы (если создалась, то стоп)

procedure TF_Main.FloatAnimation1Process(Sender: TObject);
begin
  if Assigned(F) then FloatAnimation1.Stop;
end;

• в стопе показываю форму

procedure TF_Main.FloatAnimation1Finish(Sender: TObject);
begin
  F.Show;
end;

 

Ошибка: приложение вылетает с ошибкой "stack overflow"!

P.S. Не совсем понимаю где копать, да и если у кого есть решение получше, буду только рад!)

[Кривяков Виталий]

Добрый день!

1. Посмотрите стек при возникновении "stack overflow", та будет видно, что привело к проблеме.

2. Анимации не будет. Анимация работает в основном потоке приложения. Создание формы тоже происходит в основном потоке, т.е на время создания формы анимация остановиться.

[krapotkin]

отсюда еще раз мораль. не нужно длительные действия выполнять в основном потоке.

FormCreate должна всего лишь запускать поток, который считывает и подготавливает все что нужно. А при завершении потока заполняем компоненты на форме.

Так что крутить анимацию должна уже вторая форма в то время пока данные готовятся.

Изменено 28 августа, 2017 пользователем krapotkin

[TTTimon]

спасибо за ответы, правда обошел проблему другим путем) однако, если у кого-нибудь есть пример решения подобной проблемы, буду благодарен!

[krapotkin]

я-то думал, что ответил на вопрос ))