10-07-2011, 11:51 AM
كيف استرجاع اسماء الملفات بمكون Shell List View الموجود بـ Delphi 7 في قسم Examples و هذا بفرض Multiselect مفعلة.
و أيضا بعث المحتوى إلى مكون ListBox
و أيضا بعث المحتوى إلى مكون ListBox
10-07-2011, 11:51 AM
11-07-2011, 11:54 PM
السلام عليكم و رحمة الله
لا تنسى تحية الاسلام أخي
كيف استرجاع اسماء الملفات بمكون Shell List View
أيضا بعث المحتوى إلى مكون ListBox
لا تنسى تحية الاسلام أخي
كيف استرجاع اسماء الملفات بمكون 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;12-07-2011, 01:36 AM
شكرا جزيلا اخي الكريم. انوه لان الطريقة الاولى لعرض الملف الأصلي
30-07-2011, 05:49 PM
السلام عليكم
لإسترجاع قائمة الملفات التي تم إختيارها بالـ Lazarus (لا أملك دلفي7 لذا لم أجربها)
بالتوفيق
لإسترجاع قائمة الملفات التي تم إختيارها بالـ 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;