listview kullanimi hakkinda

[mehmetantalya]

Merhabalar,
musteri isimli bir tablom var tabloda "id","musteri_adi" alanlarim mevcut.
musteri isimlerini listview de gostertiyorum. yapmak istedigim musteri adina tikladigimda musterinin id numarasini elde edebilmek. "id" numarasindan da secili musterinin detay bilgilerini gostertecegim.
Bunun icin listview veya baska bir bilesende hem adini hemde id numarasini tutturabilir miyim?
Tabi id alani gizli olacak.

Teşekkürler.

[barisatalay]

Kod: Tümünü seç

procedure ObjectOlustur( AItem:TListViewItem; LItem: TListItemText; strRefKod, strText:String; iOffsetX, iOffsetY, iWidth,iHeight, iFontSize:Integer; iFontColor: LongInt );
begin
  LItem                := TListItemText.Create(AItem);
  LItem.Name           := strRefKod;
  LItem.Font.Size      := iFontSize;
  LItem.TextColor      := iFontColor;
  LItem.Align          := TListItemAlign.Leading; // En Sol
  LItem.VertAlign      := TListItemAlign.Leading; // En Üst
  LItem.PlaceOffset.X  := iOffsetX;
  LItem.PlaceOffset.Y  := iOffsetY;
  LItem.TextAlign      := TTextAlign.taLeading;
  LItem.Trimming       := TTextTrimming.ttCharacter;
  LItem.Width          := iWidth;
  LItem.Height         := iHeight;
  LItem.Text           := strText;
end;

procedure ListeyeEkle(Title, Code: String;Listview: TListView);
var
  AItem   : TListViewItem;
  LData1  : TListItemText;
begin
  AItem        := ListView.Items.Add;
  AItem.Height := 90;
  AItem.Text   := '';
  ObjectOlustur( AItem, LData1, 'Title', Title, 5, 40, 500, 40, 14, TAlphaColorRec.Teal);
  ObjectOlustur( AItem, LData1, 'Code', Code,10, 50, 500, 40, 9, TAlphaColorRec.Steelblue );
end;

Üstte vermiş olduğum kodları projenize tanımlayın.
İlk parametre Ekranda gözükecek olandır.
ikinci parametre seninde istediğin gibi "ID" yani gizli olarak kalacak değeri saklayacağın yer olsun.
üçüncü parametrede hangi listviewe bu işlemleri uygulayacaksan.

Örnek kullanım:

Kod: Tümünü seç

ListeyeEkle('Buraya başlık gelecek','Buraya ID,ListView1);

Sıra geldi listede o iteme tıkladığında "ID" elemanını bir değikene almaya.
Listviewin eventlerinden "Item Click" içerisine

Kod: Tümünü seç

procedure TListeScreen.ListView1ItemClick(const Sender: TObject;
  const AItem: TListViewItem);
var
  A: String;
begin
  A := (AItem.Objects.FindObject('Code') as TListItemText).Text;
  ShowMessage(a);
end;

Kodları biraz kurcalarsanız çok iyi şeyleri kendiniz keşfedebilirsiniz. Zamanında bu kodlarla bizi tanıştıran Muharrem hocaye teşekkürleri borç bilirim

[mehmetantalya]

Cok tesekkur ederim. Bu arada binding yaparken cikan selectedvalue alani ne ise yariyor acaba?