有关ListView的Hint，看来netants中有许多技术

Question

试一下这个代码：
const TVS_NOTOOLTIPS      =    $0080;procedure TForm1.Button1Click(Sender: TObject);
begin
  SetWindowLong(TreeView1.Handle,GWL_STYLE,
    GetWindowLong(TreeView1.Handle,GWL_STYLE)or TVS_NOTOOLTIPS);
end;

Answer 1

to TechnoFantasy(www.applevb.com)　:
编译时说，TVS_NOTOOLTIPS不认识，是否要加什么

Answer 2

呵呵，搞错，忘了加const TVS_NOTOOLTIPS      =    $0080;
不过没有效果，还是一样

Answer 3

to TechnoFantasy(www.applevb.com)　:
你的代码好象是对treeview
而我是在listView中的问题。不知道有没有其他办法？:(

Answer 4

procedure TForm1.TreeView1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var Node:TTreeNode;
begin
       Node:=TreeView1.GetNodeAt(X,Y);
       if Node<>nil then
       begin
       Label1.Caption:=Node.Text;
       end;
end;

Answer 5

有没有更好的解决办法。
to trainbox(战友战友亲如兄弟)　:
如果能通过Hint显示listView中一行的所有信息，而不是老去拖scroll，你就会
觉得有必要了。

Answer 6

在OnInfoTip事件中设置Hint字符串即可。

Answer 7

我是在OnInfoTip中设置Hint，问题是如何去掉ListView原来的hint(现在总是有两个hint),
还有如何让hint随着鼠标的移动而移动