Hi,
mit Delphi 10.4.2 leite ich eine eigene
TExtFileOpenDialog von
TFileOpenDialog ab, und möchte die darin enthaltene
DoOnFileOkClick überschreiben. Meine eigene
DoOnFileOkClick wird aber nicht aufgerufen, und ich verstehe gerade nicht warum:
Delphi-Quellcode:
uses Vcl.Dialogs;
...
TExtFileOpenDialog =
class(TFileOpenDialog)
protected
function DoOnFileOkClick: Boolean;
override;
end;
...
function TExtFileOpenDialog.DoOnFileOkClick: Boolean;
begin
showmessage('
hier bin ich');
Result :=
inherited;
end;
Ich bin mir gar nicht sicher ob die ursprüngliche DoOnFileOkClick nicht auch tot ist...
Einen schönen Sonntag!