Einem Formular beim Start Parameter übergeben?

[mintpc]

Hallo zusammen,

gibt es eigentlich die Möglichkeit, einem Formular beim Start Parameter zu übergeben, wie bei
einer Prozedur. Wenn man z.B. ein Hauptformular hat, und aus dem Hauptformular ein anderes
Formular startet, wie etwa hier:

Code: Alles auswählen

Application.CreateForm(TForm_Geo, Form_Geo);
Form_Geo.ShowModal; 

, dass man dann dem Formular Geo etwa beim Start eine Integer Variable a mit übergibt,
wie bei einer Prozedur, also etwa so:

Code: Alles auswählen

Form_Geo(5);

Geht sowas?

Besten Dank
mintpc

[m.fuchs]

Ein Formular wird nicht "gestartet". Du rufst letztendlich immer eine Methode auf. Also kannst du dir natürlich eine eigene schreiben, die einen Parameter bekommt, den verwurstet und das Formular anzeigt.

Code: Alles auswählen

type
  TForm2 = class(TForm)
  private
    { private declarations }
  public
    procedure StartMe(AInteger: Integer);
  end;
 
var
  Form2: TForm2;
 
implementation
 
{$R *.lfm}
 
procedure TForm2.StartMe(AInteger: Integer);
begin
  Self.Caption := IntToStr(AInteger);
  Self.Show;
end;

Der Aufruf erfolgt dann von außerhalb:

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.StartMe(12345);
end;

[mintpc]

ah, ok. Verstehe.

Dann mache ich das so.

Vielen Dank
mintpc