请问：如何让鼠标移到ListBox上的某个Item时让Hint显示，并显示该Item的值（String）?

Question

这样就可以不用加横向的ScrollBar啦！谢谢！

Answer 1

procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
Index:Integer;
begin
Index:=ListBox1.ItemAtPos(Point(X,y),True);
if Index<>-1 then
listbox1.hint :=listbox1.Items[Index];
end;

Answer 2

有个问题就是这个HINT不能一直显示，
只一会儿，它就没有了，
而且要鼠标移出控件再移进来后才会再显示。

Answer 3

如果是因为hint的delay时间问题，
可以修改 hint的显示时间啊

Answer 4

不用windows的hint，它有局限性，不如随便弄个panel，弄点颜色，在mousemove中写代码比hint强多了。

Answer 5

qiubolecn(来自差生市)大哥很有道理，但可惜小弟是菜鸟，说明白点吧，谢谢！

Answer 6

同意qiubolecn的，高手啊！

Answer 7

procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
    panel1.caption:=listbox1.item.text;
end;