Einzelnen Beitrag anzeigen

nahpets
(Gast)

n/a Beiträge
 
#11

Re: procedure nach Application.run

  Alt 17. Sep 2009, 14:14
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) = 'openthen 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.
  Mit Zitat antworten Zitat