Wie bei Änderung des Formats den Ordner wechseln?

[TiGü]

Zitat von TurboMagic:

Frage: wär's dann nicht mahl an der Zeit, wenn Delphi den TOpenDialog
auf die Nutzung der neueren Variante umstellen würde

Tut er doch?
Setz dir mal einen Breakpoint in Vcl.Dialogs.TFileOpenDialogWrapper.CreateFileDialo g.

Code:

Vcl.Dialogs.TFileOpenDialogWrapper.CreateFileDialog
Vcl.Dialogs.TFileDialogWrapper.Create(???)
:00579b95 TFileOpenDialogWrapper.CreateFileDialog + $11
Vcl.Dialogs.TOpenDialog.Execute(???)

Delphi-Quellcode:

function TFileOpenDialogWrapper.CreateFileDialog: TCustomFileDialog;
begin
  Result := TFileOpenDialog.Create(nil);
  Result.OnExecute := OnExecuteEvent;
end;