Formular für Sekunden anzeigen

[Peter Hennek]

Ich möchte ein Formular aufrufen und dieses Formular soll sich nach einer gewissen Zeit
wieder von allein schließen. Wie kann man sowas bewerkstelligen, kann mir jemand einen
Tip oder einen Ansatz geben.

Gruß ph

[Bine]

mit einem Timer!!

du setzt einen Timer auf ein form

<pre>
procedure Tform1.timer1timer(sender: Tobjekt);
begin close end;

und eventuell mit form1.showmodul öffne

[Fred Ziebell]

Genau, ich benutze diese Methode um vor dem eigentlichen Programmstart einen Versionshinweis auszugeben.

Zwei Möglichkeiten:

1. Das kurzzeitig erscheinende Fenster ist auch das Hauptprogramm.

2. Das kurzzeitig erscjeinende Fenster ist Bestandteil eines Programms.

1. Timer Komponente auf der Form1 ablegen. Timer im Objektinspektor: Enabled:=False; Intervall:=5000;
Im OnTimer-Ereignis: Form1.close;
Im Form1-Ereignis: OnAktivate: ....das was das Programm machen soll...dann...Timer1.enabled:=true;....Fertig

Das Fenster(Programm) wird nach fünf Sekunden beendet.

2. Programm ruft Form2 mit Form2.showmodal auf.
(Auf Form2 befindet sich schon Timer1).
Die Timer und OnAktivate-Parameter wie oben eingeben.
Im OnTimer-Ereignis allerdings jetzt: Timer1.enabled:=false; modalresult:=-1; .....Fertig.

Soll für Fall 2 die Hauptform aktiv bleiben, dann rufst du die 2.Form nicht mit Form2.schowmodal; sondern mit Form2.show; und beendest nicht mit modalresult:=-1; sondern mit Form2.close;...

Gruß Fred Ziebel

[Peter Hennek]

Vielen Dank für die prompte Hilfe

p