+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : نافذة استعراض بحثا عن مجلد (/showthread.php?tid=11353)
نافذة استعراض بحثا عن مجلد - صالح حمادي - 07-05-2021
السلام عليكم
كيف يمكن عرض النافذة التالية للبحث عن مجلد و ليس نافذة استعراض الملفات
RE: نافذة استعراض بحثا عن مجلد - Delphi4Us - 10-05-2021
وعليكم السلام ورحمة الله
اولا بامكانك استخدام مكونات مثل ListBox و ListView وبالكود تقوم بتعبئة المكونات بالمجلدات المطلوبة بعد اختيار مسار معين
ولكن اذا اردت ان تختصر على نفسك الطريق يمكنك استخدام DirectoryListBox مكون جاهز يعرض المجلدات
![[صورة: bO50xPxvq2llThR0RbU-yU0zMASfBq2XwnGNanMx...JE4xJTU-3A]](https://lh3.googleusercontent.com/proxy/bO50xPxvq2llThR0RbU-yU0zMASfBq2XwnGNanMxnupADYxv5rKcD08EHi2RB0AUup3f72_MBuc79M3SJE4xJTU-3A)
كود :
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يعود بمسار المجلد المحدد
RE: نافذة استعراض بحثا عن مجلد - محمد عبد العزيز - 14-05-2021
السلام عليكم
جرب استخدام SelectDirectory
http://docwiki.embarcadero.com/CodeExamples/Sydney/en/SelectDirectory_(Delphi)
RE: نافذة استعراض بحثا عن مجلد - صالح حمادي - 26-05-2021
السلام عليكم أساتذتي الكرام
معذرة لتأخري في الرد ( لأنه تم قرصنت جهازي بفيروس فدية pcqq . و ضاعت جميع ملفاتي الموجودة داخله ).
لقد توصلت إلى مكون يعرض لي نفس الصورة التي وضعتها في بداية الموضوع
و هو FolderDialog التابع لحزمة TMS