Bilder erscheinen und verschwinden lassen!

[MathiasSimmack]

Ich hab´s mit dieser Zeile gemacht:

Code:

[b]procedure[/b] TForm1.Timer1Timer(Sender: TObject);
[b]begin[/b]
  Image1.Visible := [b]not[/b](Image1.Visible);
[b]end[/b];

Mehr ist IMHO gar nicht erforderlich. Wenn man den Timer an anderer Stelle (Menü, Button ...) deaktiviert, dann kann man auch dafür sorgen, dass das Bild sichtbar bleibt.

Wozu Variablen, sharky

[MathiasSimmack]

Soll das vielleicht so was wie ein Splash-Screen werden?
Wenn ja, da gibt´s ´ne günstigere Lösung, die sich sogar nach der benötigten Startzeit deines Programms richtet.

[Chriss]

Hey das is ja super! DAmit geht das gut! Die andere Lösung hat dann doch funktioniert, hab nur was auf der Form gehabt, womit sich das nicht so ganz vertragen hat
Kann man bei deiner Lösung jetzt auch dafür sorgen, dass das irgendwann aufhört? Oder setze ich da besser nen zweiten Timer ein, um den aneren abzuschalten????

Chriss

[Daniel B]

Zitat von Chriss:

Kann man bei deiner Lösung jetzt auch dafür sorgen, dass das irgendwann aufhört? Oder setze ich da besser nen zweiten Timer ein, um den aneren abzuschalten????

Dann würde der ja weiter laufen. Wenn du es ohne Splash machst;
Wenn du also dein eingeblendetes Bild auschaltest, dann mach im OnClose den Timer aus.

[Chriss]

okay, danke für den tipp!!!!!

Chriss

[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)