RWarnecke zeigt an
dieser Stelle, wie man Einträge, die für die aktuelle Breite einer Listbox zu lang sind, über einen Hint anzeigen kann.
Folgender Code wird in das
MouseMove-Event der Listbox geschrieben:
Delphi-Quellcode:
procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
lstIndex : Integer ;
begin
with ListBox1
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;
Anmerkung:
Die Eigenschaft "ShowHint" der ListBox muss auf "True" gesetzt werden.