解决方法
FileCtrl.pas中有两个称为SelectDirectory的重载例程
要获得现代外观,请使用第二种形式,使用sdNewUI
- var
- dir : string;
- begin
- dir := 'C:\temp';
- FileCtrl.SelectDirectory('Select','C:\',dir,[sdNewFolder,sdNewUI],Self);
- end;
注意:sdNewFolder,sdNewUI等仅可从D2006获得