دخول

karamofweb · 10-07-2011, 11:51 AM

كيف استرجاع اسماء الملفات بمكون Shell List View الموجود بـ Delphi 7 في قسم Examples و هذا بفرض Multiselect مفعلة.
و أيضا بعث المحتوى إلى مكون ListBox

paix144 · 11-07-2011, 11:54 PM

السلام عليكم و رحمة الله
لا تنسى تحية الاسلام أخي

كيف استرجاع اسماء الملفات بمكون 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;

karamofweb · 12-07-2011, 01:36 AM

شكرا جزيلا اخي الكريم. انوه لان الطريقة الاولى لعرض الملف الأصلي

**Lam.Abdeldjalil** · 30-07-2011, 05:49 PM

السلام عليكم

لإسترجاع قائمة الملفات التي تم إختيارها بالـ 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;

بالتوفيق

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة