دخول

Eagle Master · 26-07-2019, 10:45 AM

استخدم الكود التالي

كود :
procedure TForm1.Button1Click(Sender: TObject);
var
lv: TListViewItem;
IItem:TListItemImage;
begin
lv := ListView1.Items.Add;
lv.Data['Name'] := 'Hello';
lv.Data['SubName'] := 'word';
lv.Data['Phone'] := '012456';
IItem:=lv.Objects.FindDrawable('img') as TListItemImage;
if (IItem<>nil) then
  IItem.ImageIndex:=0;
  lv := ListView1.Items.Add;
 lv.Data['Name'] := 'Hello2';
lv.Data['SubName'] := 'word2';
lv.Data['Phone'] := '0124562';
IItem:=lv.Objects.FindDrawable('img') as TListItemImage;
if (IItem<>nil) then
  IItem.ImageIndex:=1;
end;
procedure TForm2.ListView1ItemClick(const Sender: TObject;
  const AItem: TListViewItem);
 var   img: TBitmap;
  Size: TSizeF;
begin
  Size := TSize.Create(64,64);
  memo1.Lines.Add (AItem.Objects[0].Data.AsString+' : '+AItem.Objects[1].Data.AsString +' : '+AItem.Objects[2].Data.AsString);
  ImageViewer1.Bitmap.Assign(Imagelist1.Bitmap(Size, AItem.Index ));
end;
end.

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