Thema: Delphi Timer + Programm beenden

Einzelnen Beitrag anzeigen

Benutzerbild von Störtebeker
Störtebeker

Registriert seit: 9. Jul 2007
398 Beiträge
 
#1

Timer + Programm beenden

  Alt 10. Aug 2007, 22:29
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.
"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."
  Mit Zitat antworten Zitat