Formular auf Anfangssituation zurücksetzen

[Klausi1305]

Nach dem Ich den Post geschrieben hatte, kam mir nen erleuchtender Moment..

Ich hatte die Procedure Init(enthält alle möglichen Einstellungen des Formulars) des Form2 ja immer nur im OnCreate Event gehabt..
Nachdem ich feststellen musste, dass alle Formulare vor Beginn des Programms ja durchgeradert werden, kam mir der Gedanke, die Procedure Init(enthält alle möglichen Einstellungen des Formulars)
in das OnClose Event sowie in das OnShow Event reinzupacken...
Und?!...der Effekt ist der gewünschte...
Ob das jetzt Speichersparend ist, keine Ahnung????

[rollstuhlfahrer]

Frage: Warum beim schließen nochmal einen Init machen? - Nach dem Schließen erfolgt doch normalerweise das Löschen oder das erneute anzeigen. Da recicht es doch, wenn beim Anzeigen das Init gemacht wird.

Bernhard

[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.