[crazyman]

Здравствуйте! Помогите в очередной раз пожалуйста.
Есть лейбл, при нажатии на кнопку его кэпшон получает значение1, подскажите плиз как сделать, чтобы через 5 сек лейбл получил значение 2.

[Guaho]

Компонент TTimer.
Нажатие на кнопку активирует таймер:

Код:

1	timer1.Enabled := true

А по событию OnTimer нужно менять значение Label-а.
Свойство Interval таймера, если не ошибаюсь, должно быть = 5000 для данного случая.
После изменения Лэйбла таймер можно выключить.

[crazyman]

спс разобрался

[Alegun]

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

спс разобрался

Ну и?

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

procedure TForm1.Button1Click(Sender: TObject); var  iBegin, iEnd: integer; begin  Label1.Caption:= 'значение1';  iBegin:= GetTickCount;    repeat   iEnd:= GetTickCount;   Sleep(1);   Application.ProcessMessages;  until  (iEnd - iBegin) >= 5000; // 5 сек    Label1.Caption:= 'значение 2'; end;

[crazyman]

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

Ну и?

Обычно принято выкладывать решение....

Я сделал с таймером, ровно так как было предложено. Вообще всем спасибо.