Timer + Programm beenden

**Störtebeker**

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:

markieren

Delphi-Quellcode:

			Form2.showmodal;

Form2.Timer1.enabled:=true;

und dem Timer auf der 2. Form folgendes:

markieren

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.

**SirThornberry**

markieren

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.

**Störtebeker**

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

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

Timer + Programm beenden

Timer + Programm beenden

Re: Timer + Programm beenden

Re: Timer + Programm beenden

Forumregeln

SirThornberry (Moderator) Registriert seit: 23. Sep 2003 Ort: Bockwen 12.235 Beiträge Delphi 2006 Professional	#2 Re: Timer + Programm beenden 10. Aug 2007, 21:34 markieren 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. Jens Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
	Zitat

Störtebeker Registriert seit: 9. Jul 2007 398 Beiträge	#3 Re: Timer + Programm beenden 10. Aug 2007, 21:35 Du meinst das "modal" von "showmodal" ist zuviel? Edited: Ja, ohne das "modal" funzt es. "And he piled upon the whale´s white hump - a sum of all the rage and hate felt by his whole race. If his chest had been a cannon, he would have shot his heart upon it."
	Zitat