TFileOpenDialog ableiten mit DoOnFileOkClick

[anse]

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!