retrieve ttreeview item under the mouse when moved over an item

[aducom]

Is it possible that when the mouse goes over a ttreeview to retrieve the current item under the mouse? I would like to display a hint text, depending on the item the mouse is over.

[wp]

Use the TTreeView method GetNodeAt(x, y):

Code: Pascal  [Select][+][-]

1. procedure TForm1.TreeView1MouseMove(Sender: TObject; Shift: TShiftState;
2.   X, Y: Integer);
3. var
4.   node: TTreeNode;
5. begin
6.   node := TreeView1.GetNodeAt(X, Y);
7.   if node <> nil then
8.     Caption := node.Text
9.   else
10.     Caption := '';
11. end;

[aducom]

Tnx!