Hi!
ich würde es so machen:
Jedem Item vorher mit AddObjekt einen Pointer auf ein Objekt
mitgeben, das Infos über das jeweilige Item speichert.
Delphi-Quellcode:
TItemInfo = class
private
fInfoPicture: TBitmap;
[ ...usw.. ]
public
property InfoString: string;
property InfoPicture: TBitmap read fInfoPicture;
end;
im OnMouseMove-Event dann:
Index := ListBox1.ItemAtPos(Point(X, Y), true);
Das Item unter der Maus herausbekommen.
Nun das drangehängte Objekte des Item aufrufen und die
Infos dazu auslesen.
Delphi-Quellcode:
with TItemInfo(ListBox1.Items.Objects[Index]) do
begin
ItemInfoString:= InfoString;
[...]
end;
Gruß
Pfoto