Anwendung ausserhalb des Hauptfensters beenden

[Jumpy]

Hallo,

bei meiner Anwendung möchte ich, dass sie, wenn sie mit einem Parameter gestartet wird, nur ein bestimmtes Form (eine Eingabemaske) anzeigt, nach schließen der Eingabemaske soll auch das Programm enden. Hintergrund ist, das manche unserer User nicht mit den ganzen Aspekten des Programms verwirrt werden sollen.

Mein Ansatz unten funktioniert soweit, scheint auch die Anwendung wieder zu beenden, aber im Taskmanager sehe ich, dass der Prozess des Programmes noch läuft und muss ihn da killen.
Bei meinem Ansatz stimmt also was nicht, vllt. ist er auch völlig falsch? Wie mach ich es besser?

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;

procedure TMain.FormShow(Sender: TObject);
begin
  if UpperCase(ParamStr(1)) = 'EINGABE' then acBeendenExecute(nil);
end;

procedure TMain.acMeldedaten_EingabeExecute(Sender: TObject);
var
  m:TEingabe; //Das Form mit der Eingabemaske
begin
  m:=Teingabe.Create(self);
  m.Showmodal;
  m.Free;
end;

P.S.: Der Titel stimmt nicht so 100% aber ich wußte nicht, wie ich es sonst nennen sollte?

[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:

Zitat von Luckie (Beitrag 1097235)

Rufe Close der Hautform auf.

Delphi-Quellcode:

Cellulite.Close;

SCNR^^

[s.h.a.r.k]

Zitat:

Zitat von DeddyH (Beitrag 1097236)

Zitat:

Zitat von Luckie (Beitrag 1097235)

Rufe Close der Hautform auf.

Delphi-Quellcode:

Cellulite.Close;

SCNR^^

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

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

Delphi-Quellcode:

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

Delphi-Quellcode:

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

käme erst an die Reihe, wenn alles andere korrekt abgearbeitet ist. Dann noch ein

Delphi-Quellcode:

caFree

im OnClose und das Fenster ist weg vom Fenster. Vllt vor dem (zu vermeidenden) Anzeigen noch ein

Delphi-Quellcode:

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.

[Jumpy]

@FredlFesl:
Versteh ich das recht, das du das bereits in dem Codeblock des Projekts machst? Kann ich mal versuchen, hab ich noch nie was drin gemacht, hab immer alles schön so gelassen, wie die IDE das erstellt hat. Problem sind da aber auch wieder diese Meta-Objekte, die erstellt werden sollen und z.Zt. noch an der Main-Form hängen.

Vllt. nur zur Erklärung nochmal ausführlicher. Normalerweise startet im Programm die Main-Form. Die ist wenn man so will die Kommandozentrale des Programms, von der aus ich die einzelnen Teile starten kann, quasi das Hauptmenü. Beim Start der Main-Form werden dann halt auch diese (nicht GUI)-Meta-Objekte erzeugt (innerhalb einer Klasse Projekt). Diese enthalten u.a. Datanbank Connections, ein Log Objekt, ..., die dann Anwendungsweit zur Verfügung stehen und melden den Start des Programms in einer DB.
Von der Main-Form aus kann man diverse Dinge starten, u.a. die besagte Eingabemaske.

Für manche User, soll nun aber nur die Eingabemaske zu sehen sein, damit sie nicht verwirrt werden. Trotzdem sollen aber auch die Meta-Objekte erzeugt werden.


So ich werd jetzt mal loslegen eure Anregungen zu probieren und mich dann bei Erfolg melden und bei Mißerfolg sowieso :-D

Edit:
Erfolg, zumindest teiweise. Connor's Post hat mich auf die Idee gebracht, das Hauptfenster nicht unsichtbar (und später wieder sichtbar) zu machen. Ich lass es einfach sichtbar und damit klappt es. Jetzt muss ich es nur noch klein machen oder außerhalb des Screens platzieren und keiner merkt, das es je da war.
Erklärt zwar nicht, wieso es vorher nicht lief, aber erstmal egal. Vllt. lief das alles zu schnell ab und das Fenster war noch nicht sichtbar, als es schon gekillt werden sollte, oder so.

Wenn jemand noch einen Verdacht hat, her damit, will ja was lernen.
Ansonsten: Danke nochmal an alle Helfer.

[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").

[Jumpy]

Zitat:

Zitat von DeddyH (Beitrag 1097315)

Wenn man weiß, was man tut, ...

Da ich das noch nicht genau weiß, hab ich da halt noch Respekt vor. Aber früher oder später werd ich mir das mal ansehen, aber OT gefragt:
Kann ich meine non-GUI-Meta-Objekte schon dort erzeugen und von anderen Forms/Units dann darauf zugreifen? Kann man da schon (globale) Variablen (für die Objekte) haben?

[DeddyH]

Sicher, wieso denn nicht?

[Deep-Sea]

Zitat:

Zitat von Jumpy (Beitrag 1097286)

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:

Zitat von DeddyH (Beitrag 1097315)

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 :stupid:

[Jumpy]

Zitat:

Zitat von Deep-Sea (Beitrag 1097327)

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

[ConnorMcLeod]

Das hier könnte zum Verständnis beitragen.
Alt, aber gut ;-)

[Deep-Sea]

Zitat:

Zitat von Jumpy (Beitrag 1097338)

[...] action=canone, dann Objekte freigeben, action =cafree [...]

Das Zuweisen von caNone ist sinnlos, denn der Wert den man zuweist wird logischerweise erst nach dem verlassen des Events ausgewertet - somit nach allem, was man darin schreibt, egal wann und welchen Wert man Action zuweist :wink:

Zitat:

Zitat von Jumpy (Beitrag 1097338)

Warum ist das nicht so gut?

Bei der Hauptform fällt das nicht auf, weil Delphi beim schließen ja automatisch die Anwendung beendet.
Aber bei anderen schon: Die Form wird erzeugt - wenn man nichts ändert von Delphi automatisch. Dabei wird OnCreate aufgerufen: Du erzeugst deine Objekte. Jetzt schließt man die Form (entweder per Code ".Close" oder der Nutzer macht es mit "X", etc.) und das Event OnClose wird aufgerufen: Du gibst die Objekte frei. Die Instanz der Form ist aber noch da, wird eben nur nicht angezeigt. Wenn man sie jetzt mit .Show wieder anzeigt, wird natürlich nur das Event OnShow ausgelöst und nicht noch einmal OnCreate. Somit hast du dann eine Form mit nicht existierenden Objekten.