Geht´s auch blinkend???

[flomei]

Eine TTimer Komponente wird benötigt!

Blinken

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if
Label1.Visible= true
then
Label1.Visible:= false
else
Label1.Visible:= true;
end;

Farbe wechseln

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if
Label1.Font.Color= CLred
then
Label1.Font.Color:= CLwhite
else
Label1.Font.Color:= CLred
end;

MfG Florian