procedure TForm1.TreeView1DblClick(Sender: TObject);
var
p:TPoint;
Node:TTreeNode;
begin
//
p:=TreeView1.ScreenToClient(Mouse.CursorPos);
Node:=TreeView1.GetNodeAt(p.X,p.Y);
if (Node<>nil )then
ShowMessage('You select the Node: '+Node.Text);
end;
procedure TForm1.TreeView1Click(Sender: TObject);
var
MyHitTest : THitTests;
p:TPoint;
begin
p:=TreeView1.ScreenToClient(Mouse.CursorPos);
MyHitTest := TreeView1.GetHitTestInfoAt(p.X,p.Y);
if htNowhere in MyHitTest then
ListBox1.Items.Add('NoWhere');
if htOnItem in MyHitTest then
ListBox1.Items.Add('OnItem');
if htOnButton in MyHitTest then
ListBox1.Items.Add('OnButton');
if htOnIndent in MyHitTest then
ListBox1.Items.Add('OnIndent');
if htOnLabel in MyHitTest then
ListBox1.Items.Add('OnLabel');
if htOnRight in MyHitTest then
ListBox1.Items.Add('OnRight');