Delphi-PRAXiS - Delphi Timer + Programm beenden

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)

- - Delphi Timer + Programm beenden (https://www.delphipraxis.net/97461-timer-programm-beenden.html)

Timer + Programm beenden

Hallo,

ich möchte folgendes realisieren:

Ich habe eine Hauptform, mit einem Beenden button. Wenn ich darauf drücke, möchte ich, dass eine zweite Form geöffnet wird, auf der dann steht: "wird beendet. Bitte warten...".

Soweit so gut. Ich habe nun auf diese 2. Form einen Timer gesetzt und dem Beendenbutton folgendes zugewiesen:

Delphi-Quellcode:

			Form2.showmodal;

Form2.Timer1.enabled:=true;

und dem Timer auf der 2. Form folgendes:

Delphi-Quellcode:

			Timer1.Interval := 10000;

  if ActiveControl <> nil then

    ActiveControl.Left := ActiveControl.Left + 1;

Form1.close;

im OI des Timers steht Intervall: 1000

Nun das Problem: Die 2. Form wird zwar geöffnet. Das Programm wird aber nicht beendet. Also ich weiß jetzt nicht, ob nur der Timer nicht aktiviert wird, oder ob ich da überhaupt ganz falsch an das Problem gehe. Hoffe ihr könnt mir helfen.

Thx.

Re: Timer + Programm beenden

Delphi-Quellcode:

			Form2.showmodal; //öffnet Form2 und kehrt erst zurück wenn dieses geschlossen ist.

Form2.Timer1.enabled:=true; //wird erst ausgeführt nachdem Form2 welches durch ShowModal angezeigt wird geschlossen wird.

Re: Timer + Programm beenden

Du meinst das "modal" von "showmodal" ist zuviel?

Edited: Ja, ohne das "modal" funzt es.