Einzelnen Beitrag anzeigen

Benutzerbild von s.h.a.r.k
s.h.a.r.k

Registriert seit: 26. Mai 2004
3.159 Beiträge
 
#5

AW: Anwendung ausserhalb des Hauptfensters beenden

  Alt 27. Apr 2011, 18:17
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.
»Remember, the future maintainer is the person you should be writing code for, not the compiler.« (Nick Hodges)

Geändert von s.h.a.r.k (27. Apr 2011 um 18:21 Uhr)
  Mit Zitat antworten Zitat