procedure nach Application.run

[nahpets]

Hallo,

Zitat von himitsu:

Du kannst z.B. auch das Nebenformular zum Hauptformular machen.

jo, dat jeht

Delphi-Quellcode:

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Hauptformular},
  Unit2 in 'Unit2.pas' {Nebenformular};

{$R *.res}

begin
  Application.Initialize;
  If ParamStr(1) = 'open' then begin
    Application.CreateForm(TNebenformular, Nebenformular);
  end else begin
    Application.CreateForm(THauptformular, Hauptformular);
  end;
  Application.Run;
end.

Damit hat das Programm wahlweise das Hauptformular oder das Nebenformular als MainForm. Wenn ich die Fragestellung recht verstanden habe, ist genau das gewünscht. Wenn der erste Parameter = open, dann ist das Nebenformular anzuzeigen und das Hauptformular zu verstecken, andernfalls ist das Hauptformular als MainForm zu nutzen und das Nebenformular zu verstecken. Verstecken ist hier gleichbedeutend mit: "Wird nicht benötigt" und daher in diesem Beispiel auch nicht erstellt.