Как сделать так чтобы при нажатии кнопки значение в label становилось например красного цвета

Posted by Chas 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;

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

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

• Массовое переименование label на форме
• Задать цвет и размер в label
• Как программно изменить цвет любого компонента?
• Перемещение текста по форме
• Вызов обработчика внутри собственной процедуры
• Уменьшить размер букв в зависимости от ширины GroupBox
• Как вывести слово в Label по одной букве с использованием таймера?
• Изменение цвета label при нажатии кнопки
• Как изменить цвет от рисовки у линий в StringGrid?
• Как вывести все значения элементов массива в label?