Beschnittene Einträge in ListBox durch ToolTips anzeigen?

[JBJHJM]

Ich schon wieder...
Also, ich habe eine relativ kleine ListBox, in der manche Einträge nicht vollständig dargestellt werden können. Gibt es eine (halbwegs einfache :angel2: ) Möglichkeit, die Einträge in Tooltips (etwas verzögert natürlich) vollständig darzustellen?

[RWarnecke]

Delphi-Quellcode:

procedure TMainForm.LB_GroupsMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  lstIndex : Integer ;
begin
  with LB_Groups do
  begin
    lstIndex:=SendMessage(Handle, LB_ITEMFROMPOINT, 0, MakeLParam(x,y)) ;
    if (lstIndex >= 0) and (lstIndex <= Items.Count) then Hint := Items[lstIndex]
    else Hint := '';
  end;
end;

Dieser Code Zeigt Dir einen zu langen ListBox-Eintrag als Hint an, wenn Du mit der Maus drüberfährst.

[JBJHJM]

Vielen Dank, leider läuft es aber noch nicht ganz. Habe es jetzt im onMouseMove-Event, überprüfung mit dem guten alen showmessage hat ergeben, dass die Prozedur richtig angesprochen wird, aber die hints bleiben leider aus.
Zunächst mal - für was soll "LB_Groups" stehen?

[RWarnecke]

LB_Groups ist der Komponentenname. Du must natürlich noch die Eigenschaft ShowHint auf True setzen, damit es funktioniert.

[JBJHJM]

Zitat:

Zitat von RWarnecke

Du must natürlich noch die Eigenschaft ShowHint auf True setzen, damit es funktioniert.

Guten morgen... damit funktioniert es! Vielen Dank nochmal!