Anwendung ausserhalb des Hauptfensters beenden

[Deep-Sea]

Wie wäre es, wenn du im OnClose-Event der Form einfach Application.Terminate schreibst - und sonst nichts?!

[Luckie]

Rufe Close der Hautform auf.

[DeddyH]

Zitat von Luckie:

Rufe Close der Hautform auf.

Cellulite.Close; SCNR^^

[s.h.a.r.k]

Zitat von DeddyH:

Zitat von Luckie:

Rufe Close der Hautform auf.

Cellulite.Close; SCNR^^

Jede zweite Frau würde sich über diese Zeile Code maßlos freuen

Um aber auch was zum Thema beizusteuern: ich würde das ganze etwas anders handhaben und das in etwa so gestalten:

Delphi-Quellcode:

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  WindowManager;

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;

  // 
  //
  //Application.CreateForm(TForm1, Form1);
  
  WindowManager := TWindowManager.Create();
  try
    WindowManager.ShowMainForm();
    Application.Run;
  finally
    WindowManager.Free();
  end;
end.

In der Methode WindowManager.ShowMainForm(); würde ich dann je nach Startparameter die passende Form anzeigen.

[Jumpy]

Danke schon mal für die Antworten:

@Luckie:
TMain ist die Hauptform. Im acBeenden steht dann auch nur self.close.

@Deep-Sea:
Application.Terminate kann ich mal versuchen. Muss dazu sagen, dass ich nur das wie ich dachte nötigste gepostet habe. Im OnClose-Event der Main-Form passiert noch einiges (Objekte freigeben usw.) - würde das noch ausgelöst?

@s.h.a.r.k:
Werd ich mal überlegen, doch das bedeutet eine größere Umstellung, da mit dem Start der Hauptform auch noch einige andere Objekte erstellt werden (die wie bereits oben erwähnt daher im OnClose auch dringend wieder geschl. werden müssen), die z.B. das Loging starten, den Programstart in einer DB vermerken usw.

Hab es auch schon so versucht, sprich das Hauptform noch im OnCreate zu killen, ging (logischerweise?) auch nicht.

Delphi-Quellcode:

procedure TMain.FormCreate(Sender: TObject);
begin
   if UpperCase(paramstr(1)) = UpperCase('EINGABE')then
     begin
     self.Visible:=false;
     acMeldedaten_EingabeExecute(nil);
     self.Close;
     end;
end;

Das Hauptform einfach nur wieder sichtbar machen und dann per Hand schließen (X-Button) funktioniert dagegen, sprich das Programm wird rückstandslos beendet.

Delphi-Quellcode:

procedure TMain.FormCreate(Sender: TObject);
begin
   if UpperCase(paramstr(1)) = UpperCase('EINGABE')then
     begin
     self.Visible:=false;
     acMeldedaten_EingabeExecute(nil);
     self.Visible:=true;
     end;
end;

Könnte es sein, dass das programmatische schließen einfach zu schnell ist?

[ConnorMcLeod]

Ein PostMessage(Form1.Handle, WM_CLOSE, 0, 0); käme erst an die Reihe, wenn alles andere korrekt abgearbeitet ist. Dann noch ein caFree im OnClose und das Fenster ist weg vom Fenster. Vllt vor dem (zu vermeidenden) Anzeigen noch ein SetBounds(Screen.Width + 16, 0, 1, 1); ... und keiner hat's gesehen.
Das zur schnellen Lösung des akuten Problems.

Davon abgesehen kann man sich überlegen, wozu das Fenster notwendig ist und wozu nicht. Funktionelle Dinge ohne GUI kannst Du auslagern und einfach aufrufen, eben wie Initialisierungen und Aufräumen. Dann sparst Du Dir das Fenster vllt komplett.

HTH

[FredlFesl]

Ich hab auch immer wieder Probleme damit. Gehabt. Mittlerweile mach ich das so im Hauptprogramm

Delphi-Quellcode:

Begin
  Application.Initialize;
  If ParamStr(1)='EINGABE' Then
    With TEingabeformular.Create(nil) Do Begin
      ShowModal;
      Release;
    End
  Else Begin
    Applicatio.CreateForm(TMainForm, MainForm);
    Application.Run;
  End;
End.

[Deep-Sea]

Zitat von Jumpy:

Im OnClose-Event der Main-Form passiert noch einiges (Objekte freigeben usw.) - würde das noch ausgelöst?

Das kommt drauf an, ob die Form vorher angezeigt war (wobei angezeigt hier nicht unbedingt sichtbar heißt, siehe TForm.Hide).
Aber etwas anderes: Wann werden denn die Objekte erzeugt, die du freigeben willst? Im OnCreate? Dann sollten die auch im OnDestroy freigegeben werden. Wenn sie aber im OnShow erzeugt werden, sollte das mit OnClose auch gehen.

Zitat von DeddyH:

Die *.dpr enthält ja auch nur Quellcode. Wenn man weiß, was man tut, kann man sie natürlich bearbeiten (Rechtsklick in der Projektverwaltung auf das Projekt -> "Quelltext anzeigen").

Stimmt. Aber ich habe die Erfahrung gemacht, dass Delphi es zum Teil nicht gerne sieht, wenn man die dpr per Hand bearbeitet und gerne mal selbst geschriebenen Code zerstört. Seit dem halte ich mich eher raus aus der dpr, sofern es denn geht

[Jumpy]

Zitat von Deep-Sea:

Aber etwas anderes: Wann werden denn die Objekte erzeugt, die du freigeben willst? Im OnCreate? Dann sollten die auch im OnDestroy freigegeben werden. Wenn sie aber im OnShow erzeugt werden, sollte das mit OnClose auch gehen.

Ich glaub dann mach ichs falsch: Die Objekte werden im OnCreate erzeugt und im OnClose wieder freigegeben (action=canone, dann Objekte freigeben, action =cafree). Warum ist das nicht so gut? Ich muss mir das nochmal genau angucken, wann welches Ereignis genutzt werden sollte.

Danke