ShowModal und Handle

[mumu]

Ich öffne aus Form1 heraus mit

Form2.ShowModal;

eine weitere Form.

Wie bekomm ich jetzt das Handle von Form1? Gibt es da eine Möglichkeit, ohne das ich es explizit übergebe? Das wird doch bestimmt automatisch mit übergeben.

[SirThornberry]

wenn form1 das hauptformular ist dann mit

Delphi-Quellcode:

Application.MainForm.Handle

[Christian Seehase]

Moin mumu,

und wenn es das nicht ist mit

Delphi-Quellcode:

Form1.Handle;

[mumu]

ich hab vergessen noch weng was dazu zu sagen:
Form2 wird so aus Form1 erstellt und anschließend aufgerufen:

Delphi-Quellcode:

Form2 := TForm2.Create(Self);
Form2.Show;

Eine Globale Variable in Form1 gibt es nicht. möchte ich auch nicht unbedingt haben.
bisher hab ich es so gelöst. ist nicht grad elegant, wenn jemand ne bessere idee hat melden:

Delphi-Quellcode:

Self.Tag = Self.Handle;
Form2 := TForm2.Create(Self);
Form2.Show;

in form2 brauche ich schon beim createn den handle von form1. also übergeben würde auch nicht funktionieren.

Delphi-Quellcode:

procedure TForm2.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.WndParent := Self.Owner.Tag;
end;

[Christian Seehase]

Moin mumu,

wenn Du das Formular so generierst

Delphi-Quellcode:

Form2 := TForm2.Create(Self);

ist der Owner das Form1 (ich nehme mal an, das Du es in einer Methode von Form1 aufrufst)

Somit müsste also

Delphi-Quellcode:

TForm(Owner).Handle

das Handle von Form1 zurückliefern.

[mumu]

ja genau das wars. ich hab mir doch gedacht. mensch über owner.handle müsste ich das handle bekommen. aber ich war natürlich zu blöd, um zu schauen, welchen objecttyp ich da überhaupt zurückbekomm. (TComponent)

vielen dank!