ShowModal und 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;