Verkürzte Listbox-Einträge über Hint vollständig anzeigen
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:
Anmerkung:
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; Die Eigenschaft "ShowHint" der ListBox muss auf "True" gesetzt werden. |
Alle Zeitangaben in WEZ +1. Es ist jetzt 11:40 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz