دخول

invocker · 25-07-2019, 08:37 PM

السلام عليكم

ما الطريقة التي يمكنني بها اضافة عناصر الى اللست فيو وبعد ذلك عرض اي عنصر اريد من القائمة لفهم ما اريد عملت الكود على vcl لفهم المطلوب

كود :
procedure TForm1.Button1Click(Sender: TObject);
  var
  item: TListItem;
  begin
   item := ListView1.Items.Add;
    item.Caption := 'Mohamed';
   item.SubItems.Add('Akram');
   item.SubItems.Add('055002011');
   item.ImageIndex := 0;
   end;

   procedure TForm1.CaptionclickClick(Sender: TObject);
   begin
   Memo1.Lines.Add('caption : ' + ListView1.Items[ListView1.Selected.
     Index].Caption);
    end;

     procedure TForm1.FirstitemclickClick(Sender: TObject);
     begin
     Memo1.Lines.Add('First sub item : ' +      ListView1.Items[ListView1.Selected.
      Index].SubItems[0]);
   end;

   procedure TForm1.SeconditemclickClick(Sender: TObject);
   begin
   Memo1.Lines.Add('Second sub item : ' +    ListView1.Items[ListView1.Selected.
    Index].SubItems[1]);
  end;

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