Bei OnMouseOver Hilfe zu Eintrag in TChecklistBox anzeigen?

[Pfoto]

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