مكتبة الاْكواد

[Ben.Ja]

دالة select directory لاختيار مجلد وحفظه مساره

PHP كود :

uses filectrl; 


PHP كود :

SelectDirectory('Caption', 'init_dir',variable,[sdNewUI, sdShowEdit]); 


caption = عنوان الdialog
init_dir = المسار الابتدائي
variable = المتغير الذي يُسجل فيه المسار الذي اختاره المستخدم.
داخل [] خواص اضافية  للـdialog وهي: 

PHP كود :

sdNewUI,sdNewFolder,sdShowEdit,sdShowShares,sdValidateDir 


مثال:

PHP كود :

procedure Tfrm_main.button_dirClick(Sender: TObject);
var
  sel_dir: string;
begin
  SelectDirectory('Select a folder', '', sel_dir, [sdNewUI, sdShowEdit, sdNewFolder]);
  edit_dir.Text := sel_dir;
end; 


ويمكن اختصار هذا بوضع مكون TFileOpenDialog وتحديد خاصية fdoPickFolders  في الoption الخاص به