Kein Thema!
Nehm eine Kompo TTimer aus der Lasche System. Stelle bei interval Deine Blinkzeit ein.
In der OnTimer-Ereignisbehandlungsroutine fügst du folgenden Code ein:
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
MyLabel.Visible := not MyLable.Visible;
end;
Willst du die Farbe ändern und nicht unsichtbar machen, dann mach folgendes:
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
case MyLable.Tag of
0: begin
MyLable.Tag := 1;
MyLable.Color := clread;
end;
1: begin
MyLable.Tag := 0;
MyLable.Color := clgreen;
end;
end;
end;
Eventuelle Kombinationen aus beidem, Blinken an/aus, Blikzeit usw. bleibt dir überlassen.
Gruß oki
( Ups, wir haben wohl alle gleichzeitig gepostet [oki])