نافذة استعراض بحثا عن مجلد

[صالح حمادي]

السلام عليكم
كيف يمكن عرض النافذة التالية للبحث عن مجلد و ليس نافذة استعراض الملفات

[Delphi4Us]

وعليكم السلام ورحمة الله

اولا بامكانك استخدام مكونات مثل ListBox و ListView وبالكود تقوم بتعبئة المكونات بالمجلدات المطلوبة بعد اختيار مسار معين
ولكن اذا اردت ان تختصر على نفسك الطريق يمكنك استخدام DirectoryListBox مكون جاهز يعرض المجلدات

كود :

procedure TForm1.DirectoryListBox1Change(Sender: TObject); begin   FileListBox1.Directory := DirectoryListBox1.Directory; end; procedure TForm1.DriveComboBox1Change(Sender: TObject); begin   DirectoryListBox1.Drive := DriveComboBox1.Drive;   FileListBox1.Drive := DriveComboBox1.Drive;   FileListBox1.Directory := DirectoryListBox1.Directory; end;

لو اردت المجلد المختار يمكنك استخدام هذا السطر فقط

كود :

DirectoryListBox1.Directory

يعود بمسار المجلد المحدد

[محمد عبد العزيز]

السلام عليكم
جرب استخدام SelectDirectory
http://docwiki.embarcadero.com/CodeExamp...y_(Delphi)

[صالح حمادي]

السلام عليكم أساتذتي الكرام
معذرة لتأخري في الرد ( لأنه تم قرصنت جهازي بفيروس فدية pcqq . و ضاعت جميع ملفاتي الموجودة داخله ).
لقد توصلت إلى مكون يعرض لي نفس الصورة التي وضعتها في بداية الموضوع
و هو FolderDialog التابع لحزمة TMS