Çeviri: Ramazan Gülbahar.
Bazen listboxın genişliğinden daha uzun metinleri göstermek isteriz, ancak bu durumda metnin birkısmı görünmez. Çözüm ise sığmayan metni hint olarak göstermektir. ShowHints özelliğini True yapın.
OnMouseMove olayna aşşağıdaki kodu yazın:
Kod: Tümünü seç
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;
end.