Form automatisch beenden

[Kuster Peter]

Ich habe eine Anfänger Frage:

Ich wechsle von Fox auf Delphi deshalb beschreibe ich kurz, wie ich es in Fox gelöst habe:

Ueber das Menu ein Programm aufgerufen, die gewünschten Arbeiten erledigt, Progamm schliesst automatisch.

Meine Lösung in Delphi:

Form erstellt, im Header die Bearbeitung gemacht Anzeige auf der Form in Label : Arbeit läuft, danach sollte die Form automatisch geschlossen werden, doch mein Close Befehl wird nicht ausgeführt.

Frage: Wie muss ich den Close setzen oder gibt es die Möglichkeit ein Prozedurales Programm zu schreiben, dass man am Schluss mit Close schliessen kann.

Vielen Dank für die Hilfe.

Peter

[Luckie]

Wo steht dein Close Befehl?

[Kuster Peter]

Salu Michael

Hier der Code von Form2, da siehst Du wo mein Close steht: (Wie gesagt, bin ein Anfänger!)

Delphi-Quellcode:

procedure TForm2.FormCreate(Sender: TObject);
begin
{Hier ist das Prg. das abgearbeitet werden muss.}
close;
end;

end.

MfG
Peter

[edit=r_kerber]Delphi-Tags einegfügt. Das nächste Mal bitte selbst machen! Mfg, r_kerber[/edit]

[Bernhard Geyer]

Im FormCreate geht kein Close!

Probier folgendes

Delphi-Quellcode:

PostMessage(self.Handle, WM_CLOSE, 0, 0);

[jfheins]

Du kannst das Formular nicht schon im OnCreate schließen ;)
(Du schlägtst ja auch nicht die Autotür zu, während du noch einsteigst ...)

Versuch mal ein .Release, oder einen Timer, der das Formular schließt ;)

[scrat1979]

... oder einfach im OnActivate-Event des Formulares die ganzen Dinge abarbeiten. IMHO funktioniert dann auch der Close-Befehl.

SCRaT

[juergen]

Hallo Peter,

mit

Delphi-Quellcode:

Application.Terminate;

sollte es direkt im OnCreate auch funktionieren.
Wichtig wäre hierbei, dass es erst aufgerufen wird, wenn wirklich alles abgearbeitet ist.
Ansonsten müsste noch ein

Delphi-Quellcode:

Application.Terminate;
Exit;

verwendet werden.

[semo]

im oncreate ein terminate bzw. close?
das ist wie gelber schnee - nämlich :kotz:

[Kuster Peter]

Leider funktioniert keiner der Vorschläge:

Application.Terminate schliesst das ganze Programm und die anderen Vorschläge funktionieren nicht oder ich wende diese flasch an.

Wenn es im oncreate nicht geht, dann wo. Ihr müsst wissen, ich bin ein Anfänger.

Im Fox habe ich einfach ein PRG geschrieben, das habe ich aufgerufen und dann am Schluss mit Return beendet. Ganz einfach.

Ich möchte nur eine Routine laufen lassen und dann zu meinem Formular zurückkehren.

Ganz einfach.

Peter

[PigfaceJoe]

Hi, das Problem kenn ich,
ich löse das immer so:

Ich ziehe die Timer komponente aus der Sparte System aufs Formular und stelle timer1.interval auf 1 und timer1.enabled vorerst auf false.

Dann im OnActivate (Oder oncreate) dann einfach timer1.enabled:=true setzen und im timer dann den Code schreiben und am Ende von diesem OnTimer Code dann schliesslich form2.close.

Sollte so funktionieren, is halt (wahrscheinlich) nicht die schönste Lösung, klappt aber.

Ach ja: Vergess nicht im OnTimer Ereignis am Ende vom Code noch Timer1.enabled:=false zu setzen, sonst wird der Code jede Millisekunde ausgeführt, wäre nicht so schön!^^

Schönen Gruss
PigfaceJoe