procedure TFormMain.treeview1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
node:TTreeNode;
begin
Node:=treeview1.GetNodeAt(x,y);
if node<>nil then //判断是否选中内容
Node.Selected:=True;
end;
procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
node: TTreeNode;
begin
if (Button = mbLeft) and (htOnItem in Treeview1.GetHitTestInfoAt( X, Y)) then
begin
node := TreeView1.GetNodeAt(X, Y);
if (node.Text = '子窗体1') then
childform1.show;
end;
end;