Image blinken lassen

[McReier]

Hallo,
ich habe auf meinem Sheet ein Image und möchte dieses blinken lassen, damit der Benutzer darauf aufmerksam gemacht wird.
Ein animiertes Gif funktioniert ja leider nicht. Deshalb die Frage, ob es dafür eine einfache Lösung gibt. Im Objektinspektor konnte ich nix passendes finden.
Ist ein Counter wirklich die einfachste und simpelste Lösung?

[Antrepolit]

Code: Alles auswählen

procedure TForm1.OnTimer(...);
begin
  if (image1.visible) then
    image1.visible := false
  else
    image1.visible := true;
end;
 

[wp_xyz]

oder kürzer

Code: Alles auswählen

 
procedure TForm1.TimerTimer(Sender: TObject);
begin
  Image1.Visible := not Image1.Visible;
end;
 

[McReier]

oder kürzer

Code: Alles auswählen

 
procedure TForm1.TimerTimer(Sender: TObject);
begin
  Image1.Visible := not Image1.Visible;
end;
 

Das funktioniert einwandfrei. Mir war das blinken noch etwas zu schnell, habe "Sleep" verwendet. Nun schauts super aus aber der Aufbau des Forms verzögert sich. Kommt wohl von der Sleep Funktion beim Start des Forms. Hier der Quellcode:

Code: Alles auswählen

procedure TForm15.OnTimer(Sender: TObject);
begin
  Image5.Visible := not Image5.Visible;
  Sleep(500);
 end;     

Hat noch jemand einen Vorschlag, wie den verzögerten Aufbau des Forms umgehe?

[theo]

??
Timer hat doch eine Interval Eigenschaft?