Прорисовка элементов формы в Лазарус

[khvalera]

Я заметил, что в Лазарус, если в цикле отображать какую то информацию, например делать вывод какого то текста в StatusBar.SimpleText то это происходит как то странно, только через какие то промежутки времени, как с этим бороться?

[yurgel]

добавить в цикл StatusBar.Update;

[khvalera]

добавить в цикл StatusBar.Update;

... пробовал не прокатывает!

[Mr.Smart]

khvalera
Дело в том, что статус бар не получает сообщение о прорисовки.
Данную проблему можно решить 2-мя способами:
1)

Код: Выделить всё

...
  for j:=0 to 999 do
   begin
    StatusBar1.SimpleText:=IntToStr(j);
    Application.ProcessMessages;
   end;
...

т.е. Принудительно запускать обработку событий. В данном случае будут прорисовываться все контролы которым это необходимо и даже тикать таймер
2)

Код: Выделить всё

...
  for j:=0 to 999 do
   begin
    StatusBar1.SimpleText:=IntToStr(j);
    StatusBar1.Repaint;
   end;
...

а этот код заставит прорисовываться только сам статус бар и ваше приложение не будет отвечать на другие события.

[khvalera]

Mr.Smart спасибо за ответ!
Application.ProcessMessages помогло