最高分请教，怎样让树状视图每一项都出现 hint 提示？

Question

各位大虾：
           这个问题我已经解决了。
           在form1 上面放置一个TapplicationEvent控件。
在ApplicationEvents1ShowHint(...)中修改hintinfo参数即可。

Answer 1

//参考
procedure TForm1.TreeView1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
{$J+}
const
  OldItem: TTreeNode = nil;
{$J-}
var
  AnItem: TTreeNode;
begin
  AnItem := TTreeView(Sender).GetNodeAt(X, Y);
  if Assigned(AnItem) and (AnItem <> OldItem) then begin
    TTreeView(Sender).Hint := AnItem.Text;
    Application.ActivateHint(Mouse.CursorPos);
    OldItem := AnItem;
  end;
end;