使用vlc styles改变opendialog

delphi11中使用style，dialog中list和edit类不失效，使用style扩展类可以解决。 procedure TForm1.BitBtn10Click(Sender: TObject); var Dialog: TFileOpenDialog; begin UseLatestCommonDialogs := false; Dialog := TFileOpenDialog.Create(nil); Dialog.DefaultFolder:='c:\'; try Dialog.Options := Dialog.Options + [fdoPickFolders]; // 设置对话框选项，只显示文件夹选项 if Dialog.Execute then begin // 用户选择了文件夹 ShowMessage(Dialog.FileName); // 显示所选文件夹路径 end; finally Dialog.Free; end; end; procedure TForm1.