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.

[Bomberbb]

Ja, versucht habe ich das

Delphi-Quellcode:

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

auch schon, aber sobald ich mit 'if' arbeite kommt die Meldung:
'Der Aufruf von Application.CreateForm fehlt oder ist nicht korrekt!'
Evtl. liegt das ja auch an meiner Delphiversion (D5).

[nahpets]

Zitat von Bomberbb:

auch schon, aber sobald ich mit 'if' arbeite kommt die Meldung:
'Der Aufruf von Application.CreateForm fehlt oder ist nicht korrekt!'
Evtl. liegt das ja auch an meiner Delphiversion (D5).

Mit D7 hab' ich das kompiliert bekommen und das Programm läuft auch wie gewünscht. Momentan hab' ich da keine andere Idee, wie Du das Problem lösen könntest.