Изменение цвета label на время

Posted by micher under Delphi

Как сделать так, чтобы при нажатии кнопки значение в label становилось например красного цвета в течении 2 секунд, а потом обратно возвращалось в исходный цвет?

denisbrain

procedure sleep(m:integer);

var i,t:integer;

begin

t:=windows.GetTickCount;

  repeat

   i:=windows.GetTickCount;

   if ((i-t)>m) then exit;

   application.ProcessMessages;

  until false

end;

begin

form1.Label1.Font.Color:=clred;

sleep(1000*2); // 2 секунды

form1.Label1.Font.Color:=clblack;

end;

тема на форуме

Похожие статьи

• Передача данных при нажатии на кнопку в течении минуты
• Остановить программу на определенное время