Как заставить label выводить текст сразу после команды?

zAlexandrz
Дата: 23.11.2007 18:06:53
Подскажите как заставить label выводить текст сразу после команды?

есть код:

procedure TForm1.Button14Click(Sender: TObject);
begin
 label1.text:='старт';

{набор команд, работают секунд 10}

 label1.text:='пинг';

{набор команд, работают секунд 15}

 label1.text:='конец';

End;

в итоге - во время работы процедуры кнопки label путстует , а после окончания выводится содержимое последней команды label1.text:='конец'; или все быстро по очереди (этого невидно)

КАК это можно обойти?
Мимопроходящий
Дата: 23.11.2007 18:10:22

Привет, zAlexandrz!
Ты пишешь:

zAlexandrz
z> КАК это можно обойти?
label1.Refresh;

--
With best regards, Мимопроходящий.

Posted via ActualForum NNTP Server 1.4

Johnmen
Дата: 23.11.2007 18:24:50
После каждого label1.text:='...'; - Application.ProcessMessages;
zAlexandrz
Дата: 23.11.2007 18:35:03
СПАСИБО, оба варианта работают
Macks
Дата: 23.11.2007 18:54:14
zAlexandrz
СПАСИБО, оба варианта работают


Второй вариант может привести к нежелаемым последствиям.
Johnmen
Дата: 23.11.2007 19:15:22
Macks
Второй вариант может привести к нежелаемым последствиям.

Может. Но это уже другая история.
Anatoly Podgoretsky
Дата: 23.11.2007 19:20:57
А первый точно приводит к неприятным сообщениям в отличии от второго.