Einzelnen Beitrag anzeigen

API

Registriert seit: 18. Apr 2004
637 Beiträge
 
#11

AW: Formular auf Anfangssituation zurücksetzen

  Alt 6. Feb 2011, 19:26
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;
  Mit Zitat antworten Zitat