Wenn man Formulare vererbt, kann es aber zu Problemen führen, wenn CanClose
immer gesetzt wird:
Delphi-Quellcode:
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
// geerbter Aufruf
inherited;
// überschreibt eine Einstellung im geerbten Aufruf
CanClose := MessageDlg('Wollen Sie wirklich beenden?', mtConfirmation, [mbYes, mbNo], 0) = mrYes;
end;
Beim Aufruf der Routine aus der
VCL heraus enthält die Variable CanClose den Wert
True. Man muß also lediglich mitteilen, daß man das Schließen
verhindern möchte.
Gruß Hawkeye