Mainform verstecken

[Jasocul]

Ich mache diesen ganzen Zirkus mit Application.ShowMainForm gar nicht erst.
Für solche Variationen beim Programmstart sieht meine dpr-Datei so aus:

Delphi-Quellcode:

  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TdtmMain, dtmMain);
  Application.CreateForm(TfrmMain, frmMain);
  if ParamCount >= 3 then
  begin
    frmMain.DoJobs;
    frmMain.Close;
  end
  else
  begin
    Application.Run;
  end;

Ich mache also bei parametergesteuertem Aufruf gar kein Application.Run. Dafür habe ich eine eigene Methode "DoJobs", die dann die automatisierten Prozesse durchführt. Dort eine Fortschrittsanzeige einzubauen sollte problemlos möglich sein. Ich hatte bisher keinen Bedarf für eine Anzeige, da das bei mir in der Regel zeitgesteuerte Prozesse sind, die keine Visualisierung erfordern. Theoretisch könnte man dafür auch ein Konsolen-Programm schreiben, aber bei Bedarf nutze ich solche Anwendungen auch mit GUI. Da ist ein Konsolenprogramm nicht mehr so praktisch.

[Delphi.Narium]

Zitat von Jasocul:

Ich mache also bei parametergesteuertem Aufruf gar kein Application.Run. Dafür habe ich eine eigene Methode "DoJobs", die dann die automatisierten Prozesse durchführt. Dort eine Fortschrittsanzeige einzubauen sollte problemlos möglich sein. Ich hatte bisher keinen Bedarf für eine Anzeige, da das bei mir in der Regel zeitgesteuerte Prozesse sind, die keine Visualisierung erfordern. Theoretisch könnte man dafür auch ein Konsolen-Programm schreiben, aber bei Bedarf nutze ich solche Anwendungen auch mit GUI. Da ist ein Konsolenprogramm nicht mehr so praktisch.

Das ist meiner Meinung nach die einzige, sinnvolle Variante.

Und das Schöne daran: Banal einfach zu implementieren.

Setzt halt voraus, das man Progammsteuerungslogik nicht von irgendwelchen Anzeigeereignissen abhängig macht (was ich übrigens für einen sehr schlechten Programmierstil halte).

'ne Datei im FormActivate zu laden, ist keine besonders gute Idee. Was ist denn, wenn ein Formular mehrfach aktiviert wird? Wird die Datei dann mehrfach geladen? Jedes Mal, wenn man das Programm in den Vordergrund holt (und dann wieder in den Hintergrund schiebt, weil einem das Laden der Datei zu lange dauert, um danach das Programm wieder in den Vordergrund zu holen, weil das Laden endlich fertig ist, was zu einem erneuten Laden der Datei führt, weshalb man es für diese Zeit wieder in den Hintergrund schiebt, um danach das Programm wieder in den ...)?

[jziersch]

Zitat:

Ich mache diesen ganzen Zirkus mit Application.ShowMainForm gar nicht erst.

Kann ich nur zustimmen.

Wenn Du in Delphi under 'Projekt' den Menü Eintrag "Quelltext anzeigen" wählst, siehst Du den code der beim Start eines Projektes abläuft.

Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.CreateForm(TForm1, Form1);
Application.Run;

Das Formular welches als erstes erzeugt wird, wird dann auch angezeigt und gestartet.

In diesem Fall wäre dies "ProgressBar"

Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.CreateForm(TProgessBar, ProgessBar);
Application.CreateForm(TForm1, Form1);
Application.Run;

welches dann den Job anstossen könnte und dann das Programm wieder beenden. Dabei kann dann das MainForm (also Form1) verwendet werden, ohne dass es angezeigt wird.
Wenn Du kein Form anzeigen willst, dann ist der "DoJobs" Ansatz perfekt.

[hoika]

Hallo,

Zitat:

ne Datei im FormActivate zu laden, ist keine besonders gute Idee. Was ist denn, wenn ein Formular mehrfach aktiviert wird?

Das mache ich immer so.

Allerdings steht bei mir als erste Zeile
OnActivate := nil;

[Int3g3r]

Vielen Dank für die Beispiele.

Es funktioniert nun.

Delphi-Quellcode:

// Projekt -> Quelltext Anzeigen (.dpr file)
begin
   Application.Initialize;
   Application.Title := 'FTP';
   Application.CreateForm(TformFTP, formFTP);
   if ParamCount > 0 then
      begin
         Application.ShowMainForm := false;
         formFTP.parameterStart;
         formFTP.Close;
      end
      else
      begin
         Application.Run;
      end;
end.

[Delphi.Narium]

Zitat von Int3g3r:

Vielen Dank für die Beispiele.

Es funktioniert nun.

Delphi-Quellcode:

// Projekt -> Quelltext Anzeigen (.dpr file)
begin
   Application.Initialize;
   Application.Title := 'FTP';
   Application.CreateForm(TformFTP, formFTP);
   if ParamCount > 0 then
      begin
         Application.ShowMainForm := false;
         formFTP.parameterStart;
         formFTP.Close;
      end;
   Application.Run;
end.

Bitte anpassen:

Delphi-Quellcode:

// Projekt -> Quelltext Anzeigen (.dpr file)
begin
  Application.Initialize;
  Application.Title := 'FTP';
  Application.CreateForm(TformFTP, formFTP);
  if ParamCount > 0 then
  begin
    Application.ShowMainForm := false;
    formFTP.parameterStart;
    formFTP.Close;
  end else begin
    Application.Run; // Das muss nur ausgeführt werden, 
                     // wenn kein Parameter übergeben wurde, 
                     // aber bei einer Parameterübergabe bestimmt 
                     // nicht mehr nach dem Schließen des Hauptformulares.
                     // Auch dann nicht, wenn es vielleicht so funktionieren mag.
  end; 
end.

[Int3g3r]

Danke für die Info. Ist nun angepasst.