Programm beendet sich nicht sauber

[Bbommel]

Mal noch ein ganz anderer Ansatz, wie ich finde eigentlich einfacher, weil man sich irgendwelche Messages spart - allerdings ungetestet:

Warum greifst du nicht direkt auf Ebene der .dpr Datei ein? Das Vorgehen könnte etwa sein:

• Funktionalität für die "Auto"-Funktion raus aus dem OnCreate in eigene Funktion, z.B. "DoAutoRun"
• Nach den ganzen "Application CreateForm", aber vor "Application.Run" dann dein DoAutoRun aufrufen, falls per Parameter gewünscht

Sollte das nicht auch funktionieren?

Bis denn
Bommel

[Aphton]

Wenns Quick & (not so) Dirty ist, geht ja evt auch folgendes

Delphi-Quellcode:

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Form1.DoAfterCreate;
  Application.Run;
end.

procedure TForm1.DoAfterCreate;
begin
  ShowMessage('AfterCreate - Closing!');
  Close; // klappt
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ShowMessage('FormCreate');
  // Close; // klappt nicht
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  Caption := 'Break here';
end;

[Jumpy]

Sorry, musste mal schnell ein paar Kabel verlegen, drum jetzt erst Rückmeldung. Mit PostMessage funktionierts wie gewünscht. In der .dpr wollt ich nicht rumfummeln, würde aber sicher auch gehen.