Скачать: CL | DM;

Как сделать мерцающую надпись?   Найти похожие ветки 

← →
Intell ©   (2003-03-07 06:15) [0]

Как сделать надпись (любого компонента), которая будет мерцать. Т.е. не сам компонент, а Font.Color.

---

← →
OlegM ©   (2003-03-07 06:50) [1]

С button пробовал непроходит а с другими вроде

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if edit1.Font.Color=clWindowText then
edit1.Font.Color:=clRed
else
edit1.Font.Color:=clWindowText
end;

---

← →
Intell ©   (2003-03-07 11:32) [2]

Спасибо OlegM, выручил!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.013 c