下面的方法一定管用,已测试通过。procedure TForm1.FormCreate(Sender: TObject); begin TreeView1.ShowHint:=true; end;procedure TForm1.TreeView1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var tmpNode: TTreeNode; begin tmpNode := (Sender as TTreeView).GetNodeAt(X, Y); if tmpNode=nil then Application.HideHint else begin TTreeView(Sender).Hint:=Format('节点名称=%s'#13'子节点数=%d',[tmpNode.Text,tmpNode.Count]); Application.ActivateHint(Mouse.CursorPos); end; end;
//一个语句就可以实现啦 procedure TForm1.TreeView1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if (treeview1.GetNodeAt(x,y)<>nil) then treeview1.Hint:=inttostr(treeview1.GetNodeAt(x,y).Count); end;
treeview1.Selected.Parent.Count
begin
TreeView1.ShowHint:=true;
end;procedure TForm1.TreeView1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
tmpNode: TTreeNode;
begin
tmpNode := (Sender as TTreeView).GetNodeAt(X, Y);
if tmpNode=nil then
Application.HideHint
else
begin
TTreeView(Sender).Hint:=Format('节点名称=%s'#13'子节点数=%d',[tmpNode.Text,tmpNode.Count]);
Application.ActivateHint(Mouse.CursorPos);
end;
end;
procedure TForm1.TreeView1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if (treeview1.GetNodeAt(x,y)<>nil) then treeview1.Hint:=inttostr(treeview1.GetNodeAt(x,y).Count);
end;