Bilder erscheinen und verschwinden lassen!

[MathiasSimmack]

Zitat von Chriss:

Kann man bei deiner Lösung jetzt auch dafür sorgen, dass das irgendwann aufhört?

Aha, dann ist das also so, dass das Bild nur einmal zu sehen sein soll (1 Sekunde), und in der 2. Sekunde soll es dann wieder verschwinden, aber auch nicht mehr auftauchen. Hm, streng genommen steht davon nichts in deiner Frage, weswegen ich dachte, dass du so ein "Geblinke" haben willst. Also, in dem Fall erweitere ich mein o.g. Codeposting um eine Variable und zwei zusätzliche Anweisungen:

Code:

[b]var[/b]
  two_seconds_2_die : byte = 0;

[b]procedure[/b] TForm1.Timer1Timer(Sender: TObject);
[b]begin[/b]
  Image1.Visible := [b]not[/b](Image1.Visible); inc(two_seconds_2_die);
  Timer1.Enabled := (two_seconds_2_die < 2);
[b]end[/b];

Das war´s ... 8)