Цитата:
|
Сообщение от crazyman
спс разобрался
|
Ну и?
Обычно принято выкладывать решение, может другим пригодится, а для данной задачи возможен и такой вариант, без таймера
Код:
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;