(Formular-)Handling größerer Projekte

[mm1256]

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!