Как сделать мерцающую надпись?

← →
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;

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

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