Verkürzte Listbox-Einträge über Hint vollständig anzeigen

[Mithrandir]

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.