Daten an ListBox Item hängen, bei klick auslesen

[Salomon]

Hi,
wie kann ich in einer Listbox ein Item mit zusätzlichen Daten einfügen und bei einem Klick auf das ListboxItem diese Daten wieder abrufen?

Das Anhängen sollte so gehen, oder?

Delphi-Quellcode:

ListBox1.AddItem(ADOQuery.FieldByName('Name').AsString, Pointer(ADOQuery.FieldByName('PPATID').AsInteger));

Angehängt werden müsste eine DB ID.

Wie mach ich das Abrufen der zusätzlichen Item Infos, bei einem Klick auf das Item?

Gruß
Marcus

[Luckie]

So geht es: http://www.michael-puff.de/Developer...AddObject.html

[Salomon]

Ah, genau das habe ich gesucht. Danke!

Wennn man die Zahl wie in meinem Code oben an das Listbox Item hängt, kommt man auch so wieder dran:

Delphi-Quellcode:

showmessage(IntToStr(integer(Listbox1.Items.Objects[ListBox1.ItemIndex])));

Lukie's Lösung ist aber besser und bietet die Möglichkeit weitere Daten zu Verwalten.