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.