+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف استرجاع اسماء الملفات بمكون Shell List View (/showthread.php?tid=3275)
كيف استرجاع اسماء الملفات بمكون Shell List View - karamofweb - 10-07-2011
كيف استرجاع اسماء الملفات بمكون Shell List View الموجود بـ Delphi 7 في قسم Examples و هذا بفرض Multiselect مفعلة.
و أيضا بعث المحتوى إلى مكون ListBox
كيف استرجاع اسماء الملفات بمكون Shell List View - paix144 - 11-07-2011
السلام عليكم و رحمة الله
لا تنسى تحية الاسلام أخي
كيف استرجاع اسماء الملفات بمكون Shell List View
كود :
procedure TForm1.ShellListView1MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
label1.Caption:=ShellListView1.RootFolder.DisplayName;
end;أيضا بعث المحتوى إلى مكون ListBox
كود :
var ax: Integer;
begin
for ax := 0 to ShellListView1.Items.Count-1 do
begin
if ShellListView1.Items.Item[ax].Selected then
ListBox1.Items.Add(ShellListView1.Folders[ax].PathName);
ListBox1.items.Add(ExtractFileName(ShellListView1.Folders[ax].PathName));
end;
end;كيف استرجاع اسماء الملفات بمكون Shell List View - karamofweb - 12-07-2011
شكرا جزيلا اخي الكريم. انوه لان الطريقة الاولى لعرض الملف الأصلي
كيف استرجاع اسماء الملفات بمكون Shell List View - Lam.Abdeldjalil - 30-07-2011
السلام عليكم
لإسترجاع قائمة الملفات التي تم إختيارها بالـ Lazarus (لا أملك دلفي7 لذا لم أجربها)
كود :
var i :integer;
begin
for i := 0 to -1 + ShellListView1.Items.Count do
begin
if ShellListView1.Items[i].Selected then
ListView1.AddItem(ShellListView1.Items[i].Caption);
end;