Bir çoğumuz veri tabanı uygulamalarında listbox'lardan faydalanırız. Bilmem hiç başınıza geldimi. Örneğin bir müşteri takibi yazdınız ve müşteri adlarını TListBox'dan göstermek istediniz, bu gayet basit. Ancak ikinci bir isteğiniz ise müşteri adlarına tıklandığında kayıt numarasının görüntülenmesi.
İşte tam bu nokta imdadımıza TObject özelliği yetişiyor. Aşağıdaki kod parçasında TObject özelliğinin nasıl kullanıldığı anlatılmakta.
Veri tabanından bilgilerinizi TListBox'a aktarırken aşağıdaki koddan faydalanın.
ListBox1.Items.AddObject(Table1.FieldByName('Firma Adi').AsString,
TObject(Table1.FieldByName('FirmaNo').AsInteger));
Yukarıda ki kodda TListBox içinde Firma isimleri gösterilecek ancak FirmaNo bilgileri object olduğundan ekranda gösterilmeyecek ancak TListBox tarafından bilinecektir.
Aşağıda ki kodu TListBox'in OnClick olayına ekleyip programı çalıştırdığınızda Firma adlarına tıkladığınızda FirmaNo bilgisinide alabileceksiniz.

Kod:
procedure TForm1.ListBox1Click(Sender: TObject);
var
  FNo: Integer;
begin
  FNo := Integer(ListBox1.Items.Objects[ListBox1.ItemIndex]);
  ShowMessage(IntToStr(FNo));
end;

ellerine sağlık