Fenster erst nach 10 Sekunden aktivieren.

[Andy Nightingale]

Hallo Leute,

ich würde gerne das ich vom Fenster drei aus sich Fenster 4 nach 10 Sekunden automatisch öffnet, aber dann wieder nach 10 Sekunden automatisch schließt.
Wie könnte man so etwas machen? Danke

[theo]

Mit einem Timer?

https://wiki.lazarus.freepascal.org/TTimer

[Andy Nightingale]

Hallo Theo,

an geht es aber nicht mehr aus. Irgendwas mache ich falsch. Wie mache ich es wieder aus?
Grüße

[wp_xyz]

In dem beigefügten Mini-Projekt hat jedes der beiden Fenster einen Timer. Damit sich während der Wartezeit etwas auf dem Bildschirm tut, habe ich den Timer auf 1 Sekunde (1000 Millisekunden) eingestellt und lasse ihn einer Sekundenzähler herunterzählen. Wenn dieser die Null erreicht hat, erfolgt die eigentliche Aktion, das Öffnen des anderen Fensters. Im anderen Fenster ist dasselbe installiert, nur wird das Fenster hier beim Erreichen der Null geschlossen.

[Zvoni]

Hier mit nur einem Timer

project1.zip

(139.95 KiB) 21-mal heruntergeladen

Mein Ansatz:
Da Fenster 3 das Fenster 4 aufruft, sollte Fenster 3 auch Fenster 4 wieder schliessen.

[theo]

Warum verkompliziert ihr diese einfache Aufgabe?
Ich verstehe auch gar nicht, wo genau Andy Nightingales Problem liegt.
Diese Information reicht doch völlig:

Code: Alles auswählen

uses Unit2;
...
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if Form2.Visible then
  begin
    Form2.Hide;
    Timer1.Enabled:=false;
  end else Form2.Show;
end;   

Dass TTimer einen "Interval" und ein "OnTimer" Ereignis hat, sollte ja klar sein.