السلام عليكم
ما الطريقة التي يمكنني بها اضافة عناصر الى اللست فيو وبعد ذلك عرض اي عنصر اريد من القائمة لفهم ما اريد عملت الكود على 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;
وعليكم السلام
بعد بحث يسير..
إقرأ الصفحة التالية، خاصة How to Modify List View Appearance Properties
http://docwiki.embarcadero.com/RADStudio...Appearance
![[صورة: ItemAppearenceValueListView.png]](http://docwiki.embarcadero.com/images/RADStudio/Rio/e/f/fc/ItemAppearenceValueListView.png)
بعدها قمت بالتعديل على Text1.
AppearanceObjectName إلى Name
أضفت 2 من TTextObjectAppearance أسميتهما على التوالي: SubName و Phone
![[صورة: DynamicAppearence.png]](http://docwiki.embarcadero.com/images/RADStudio/Rio/e/0/0a/DynamicAppearence.png)
الآن الكود (ضمت إجراء الضغط على الزر Button1)
كود :
procedure TForm1.Button1Click(Sender: TObject);
var
list: TListViewItem;
lName, lSubName, lPhone: TListItemText;
begin
list := ListView1.Items.Add;
lName := list.Objects.FindObjectT<TListItemText>('Name');
lSubName := list.Objects.FindObjectT<TListItemText>('SubName');
lPhone := list.Objects.FindObjectT<TListItemText>('Phone');
lName.Text := 'Mohamed';
lSubName.Text := 'Akram';
lPhone.Text := '055002011';
list := ListView1.Items.Add;
lName := list.Objects.FindObjectT<TListItemText>('Name');
lSubName := list.Objects.FindObjectT<TListItemText>('SubName');
lPhone := list.Objects.FindObjectT<TListItemText>('Phone');
lName.Text := 'merouane';
lSubName.Text := 'karim';
lPhone.Text := '066222334455';
end;
![[صورة: attachment.php?aid=4032]](http://delphi4arab.net/forum/attachment.php?aid=4032)
شكرا استاذ مروان راح اجرب ان شاء الله
تمام يا غالي بقي
1- اضافة الصورة
2 - كيف اجلب قيمة الحقل وعرضه في memo
name
SubName
Phone
الحمد لله حليت طريقة اصافة الصورة
![[صورة: p_1302c245q1.png]](https://5.top4top.net/p_1302c245q1.png)
بقي طريقة جلب القيم من اللست فيو
جربت هكذا ولم تنجح
edit1.Text:=ListView1.Items.AppearanceItem[1].Data['Name'].AsString;
or
edit1.Text:=ListView1.Items.AppearanceItem[1].Data['Subname'].AsString;
or
edit1.Text:=ListView1.Items.AppearanceItem[1].Data['Phone'].AsString;
جربت هذا لكن يجلب الاسم واللقب فقط فكيف اجلب رقم الهاتف وعرض الصورة في image
showmessage ('First Name: '+ AItem.Objects[0].Data.AsString);
showmessage('Last Name: '+AItem.Objects[1].Data.AsString);
جزاكم الله خيرا هذا هو تمام
(26-07-2019, 10:45 AM)Eagle Master كتب : [ -> ]استخدم الكود التالي
كود :
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.
بارك الله فيكم ، لكن هل هناك مشكلة لل item height أحيانا يحصل تداخل خاصة في ال fmx
