Chapeau! Bei modalen Fenstern
Delphi-Quellcode:
procedure TCustomForm.CloseModal;
var
CloseAction: TCloseAction;
begin
...
case CloseAction of
caNone: ModalResult := 0;
caFree: Release;
end;
...
end;
Aber bei "normalen" Fenstern ???
Delphi-Quellcode:
procedure TCustomForm.DoClose(var Action: TCloseAction);
begin
if Assigned(FOnClose) then FOnClose(Self, Action);
end;
EDIT:
Jetzt hab ich's kapiert, und darum werde ich es zukünftig so machen:
Delphi-Quellcode:
procedure TFrmClient1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caNone; // In der CustomForm soll nichts passieren
FrmClient1 := nil; // Meine Form-Variable ist jetzt ungültig
Release; // Ich gebe das Formular selber frei
end;
Wenn da mal jemand über meinen Code stolpern sollte, sieht man gleich, was passiert.
Vielen Dank für deine Hilfe und Geduld!