07-05-2021, 12:38 PM
السلام عليكم
كيف يمكن عرض النافذة التالية للبحث عن مجلد و ليس نافذة استعراض الملفات
![[صورة: attachment.php?aid=4490]](https://delphi4arab.net/forum/attachment.php?aid=4490)
كيف يمكن عرض النافذة التالية للبحث عن مجلد و ليس نافذة استعراض الملفات
10-05-2021, 01:22 AM
وعليكم السلام ورحمة الله
اولا بامكانك استخدام مكونات مثل ListBox و ListView وبالكود تقوم بتعبئة المكونات بالمجلدات المطلوبة بعد اختيار مسار معين
ولكن اذا اردت ان تختصر على نفسك الطريق يمكنك استخدام DirectoryListBox مكون جاهز يعرض المجلدات
![[صورة: bO50xPxvq2llThR0RbU-yU0zMASfBq2XwnGNanMx...JE4xJTU-3A]](https://lh3.googleusercontent.com/proxy/bO50xPxvq2llThR0RbU-yU0zMASfBq2XwnGNanMxnupADYxv5rKcD08EHi2RB0AUup3f72_MBuc79M3SJE4xJTU-3A)
لو اردت المجلد المختار يمكنك استخدام هذا السطر فقط
يعود بمسار المجلد المحدد
اولا بامكانك استخدام مكونات مثل 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يعود بمسار المجلد المحدد
14-05-2021, 03:43 PM
26-05-2021, 12:56 PM