Wie bei Änderung des Formats den Ordner wechseln?

[TurboMagic]

Danke für alle die Infos.
Muss ich mal bald probieren.

Frage: wär's dann nicht mahl an der Zeit, wenn Delphi den TOpenDialog
auf die Nutzung der neueren Variante umstellen würde und die neuen Funktionen
dann nach außen führen würde oder evtl. über ein Property auswählbar ob der neue oder die alte
Variante intern zum Einsatz kommt?

[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;