Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Загрузка файла

Автор: Михалыч 11.7.2010, 18:45

Подскажите почему форма Form2  мертвая,на ней не работает не Timer , не ProgressBar
Вообщем на форме Form2 хотел разместить или Gif рисунок, или ProgressBar. Что бы если файл большой грузится
то была бы заставка, заставка появляется ,а вот ни  Gif рисунок, ни  ProgressBar не работают.
Можно конечно запустить в отдельном потоке, но не понятно почему не работает?

Все это пишу в  OnShow

Код


if (ParamCount > 0) and FileExists(ParamStr(1)) then  begin 

 Form2:= TForm2.Create(Application);
    Form2.Show;
    Form2.Update;
rxRichEdit1.Lines.LoadFromFile(ParamStr(1));
   Form2.Close;
 Form2.Free;//
end;

Автор: ~FoX~ 11.7.2010, 20:49

Application.ProcessMesges?

Автор: rytmix 11.7.2010, 21:22

ты используешь метод компонента, он не передаст управление пока не завершится

Автор: Rennigth 12.7.2010, 11:04

Михалыч,
Или читать в цикле блоками с переодической передаче управления главному потоку(например как уже сказали Application.ProcessMesges) или в отдельный поток.