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

**Mithrandir**

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:

zusammenfalten · markieren

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.

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

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

Forumregeln