Последние записи
- Прозрачность тайлсета в TPNGImage
- Как сделать VBA макрос в excel
- Поиск по столбцу 1-ого не нулевого значения (формулой в Microsoft Office Excel)
- Простановка единиц в ячейки под объектами (Microsoft Office Excel)
- Расчет затраченного времени между определенным рабочим временем (формулой в Microsoft Office Excel)
- Мигающий экран на Assembler
- VBA-макрос по копированию 10 строчек в выбранном диапазоне в Microsoft Office Excel
- Копирование только нужного диапазона в Microsoft Office Excel
- Перенос диапазона стоки в Microsoft Office Excel на другой лист по условию
- Мелодия в Pascal.ABC.Net с помощью System.Console.Beep — задержка воспроизведения звука
23rd
Сен
Изменение цвета 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;
