15-06-2019, 09:28 PM
السلام عليكم
كنت قد طرحت السؤال هنا لكن لم اجده للاسف المهم اريد تحويل هذا المشروع بعد اذنكم الى الفايرمونكي
بحيث يمكنني الاضافة لاحقا مثل ما في الصورة
![[صورة: p_1260py56w1.jpg]](https://6.top4top.net/p_1260py56w1.jpg)
كنت قد طرحت السؤال هنا لكن لم اجده للاسف المهم اريد تحويل هذا المشروع بعد اذنكم الى الفايرمونكي
كود :
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;
![[-]](https://delphi4arab.net/forum/D4A2020/collapse.png)