Delphi 2010: Регулярное обновление строки состояния

[grh]

Всем привет. Иногда при выполнении долговременных процедур Delphi-приложение "подвисает", и в том числе "подвисает" строка состояния. Что нужно сделать для того, чтобы строка состояния регулярно обновлялась?

[Alex11223]

Не выполнять долговременные процедуры в UI потоке.

[Serge_Bliznykov]

варианты:
- не писать "долговременных процедур"
- внутри "долговременных процедур" вызвать Application.ProcessMessages
- выполнять "долговременные процедуры" в отдельном (отдельных) нитях (выч.потоках)

и многое, многое другое...

[min@y™]

Надо запостить во все интернеты!

284971.jpg

[саша40]

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

Всем привет. Иногда при выполнении долговременных процедур Delphi-приложение "подвисает", и в том числе "подвисает" строка состояния. Что нужно сделать для того, чтобы строка состояния регулярно обновлялась?

Прописать выполнение процедуры в таймере. Компонент TTimer.

[Alex11223]

И чем это поможет? Таймер в том же UI потоке выполняет код.

[саша40]

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

И чем это поможет? Таймер в том же UI потоке выполняет код.

Сколько себя помню некогда не "подвисало", даже при длинных процедурах. Может это особенность школы нового программирования? И кстати выполняет он это в отдельном потоке.
А если проблема не слишком решается, то один ответ: Используем локальные переменные, константы, массивы и меньше обращаемся к компонентам. Иногда и такая оптимизация кода очень сильно помогает.

[min@y™]

А может таки сделать хорошо, без костылей?
Примеров многопоточных приложений в интернетах - 47 вагонов.
Даже я тут сколько штук выкладывал.
Да и в любой книжке по delphi всё это есть.

[Alex11223]

И кстати выполняет он это в отдельном потоке.

Хватит бред писать во всех своих сообщениях.
Создай таймер и запусти в нем бесконечный цикл.

procedure TForm1.tmr1Timer(Sender: TObject);
begin
  while True do
  begin
    Sleep(500);
    Beep;
  end;
end;

[Serge_Bliznykov]

Сколько себя помню некогда не "подвисало", даже при длинных процедурах

угу.
кинь на форму Edit1, TTimer

и напиши на код таймера, например, так

var i : integer;
  s: string;
begin
  s := '';
  for i:=1 to 100000 do s:=s+IntToStr(i);
  edit1.Text := s
end;

а потом расскажешь, что получилось, хорошо?