Formular auf Anfangssituation zurücksetzen

[API]

quick & dirty das Hauptformular zurücksetzen:

Delphi-Quellcode:

procedure TForm1.FormularZuruecksetzen(Sender: TObject);
var
  P : Pointer;
begin
  P := @Application.Mainform;
  Application.CreateForm(TForm1, Form1);
  Pointer(P^) := Form1;
  Free;
  Form1.Show;
end;

[rollstuhlfahrer]

funktioniert diese Zeile Pointer(P^) := Form1; denn überhaupt? - Ich denke nicht, dass es so einfach ist, eine nur-lesen Eigenschaft von TApplication so einfach zu beschreiben.

Bernhard

[API]

Zitat von rollstuhlfahrer:

funktioniert diese Zeile Pointer(P^) := Form1; denn überhaupt? - Ich denke nicht, dass es so einfach ist, eine nur-lesen Eigenschaft von TApplication so einfach zu beschreiben.

Bernhard

Mein Code habe ich zuvor getestet.