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) 31-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.

[Andy Nightingale]

In dem beigefügten Mini-Projekt hat jedes der beiden Fenster einen Timer. ...

Hallo WP,
danke dir. Super Idee.

[Andy Nightingale]

Hier mit nur einem Timerproject1.zip
Mein Ansatz:
Da Fenster 3 das Fenster 4 aufruft, sollte Fenster 3 auch Fenster 4 wieder schliessen.

Hallo Zvoni,
Manomann ich habs jetzt kapiert.- ich stand echt aufm Schlauch. Bei mir hat sich das zweite Fenster nicht mehr geschlossen.- Danke auch dir. Super.

[Andy Nightingale]

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

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

Hallo Theo,
ne war mir nicht klar.-bis jetzt ich mache etwas und dann mache ich eine bzw. zwei Wochen was anderes und dann brauche ich was wie jetzt der Timer und dann weiß ich die Hälfte schon nicht mehr. Ist halt als Anfänger doch viel zu merken. Vieles vergisst man dann wieder. Schon bescheuert. Man kommt sich dann total blöd vor. Sorry Theo.