Form bereits erzeugt?

[Christian Seehase]

Moin Tpercon,

Code:

procedure TForm6.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
  // Annahme: Das Hauptformular mit dem MainMenu heisst Form1
  Form1.Item1.Checked := false;
end;

****EDIT****

Code:

procedure TForm6.FormDestroy(Sender: TObject);
begin
  Form6 := nil;
end;

****EDITEND****
Dann wird das Formular beim Schliessen wieder zerstört.

Noch ein kleiner Vorschlag:

statt

Code:

If not Assigned(Form6) 
then Item1.Checked:=False 
else Item1.Checked:=True;

einfach

Code:

Item1.Checked := not Assigned(Form6);