2009-08-17 20 views

Odpowiedz

16

Istnieją dwie przeciążone procedury w FileCtrl.pas zwane SelectDirectory

na nowoczesny wygląd, należy użyć drugiego formularza, z sdNewUI

var 
    dir : string; 
begin 
    dir := 'C:\temp'; 
    FileCtrl.SelectDirectory('Select', 'C:\', dir, [sdNewFolder, sdNewUI], Self); 
end; 

UWAGA: sdNewFolder, sdNewUI etc są dostępne tylko od D2006 +

+0

Dzięki za to. Spojrzałem wcześniej na SelectDirectory, ale nie widziałem opcji dla nowoczesnego interfejsu użytkownika. – Rowan

+0

Listę dostępnych opcji w parametrze Opcje dla SelectDirectory można znaleźć tutaj: http://docs.embarcadero.com/products/rad_studio/delphiAndcpp2009/HelpUpdate2/EN/html/delphivclwin32/FileCtrl_TSelectDirExtOpt.html – Rowan

+0

Korzystanie z FileCtrl.pas daje mi ostrzeżenie: Jednostka "FileCtrl" jest specyficzna dla platformy. Czy istnieje rozwiązanie bez tej jednostki? – TomCat500

2

można użyć SelectDirectory z jednostki FileCtrl

using FileCtrl; 
var 
    St: string; 
begin 
    St:='c:\'; 
    if SelectDirectory(St,[],0) then 
    begin 
    end; 

end;