假设TreeView1在Form1   想在Form2调用TreeView1就是：
Form1.TreeView.selected;

但必须在Form2的implementation后面加,如下：

implementation
uses Unit1;
{$R *.dfm}



这样调的条件是，Form1必须在调用时不是关闭的。

~{JGQ=~},~{2;9}TZ51G040LeVPJG?IRT75;X~}TreeView.selectde~{5DV55D~}.
~{5+TZFdK|40LeVPJG2;PP5D~}.ADOquery~{R2JGUbQy5D~}.

  

其它窗体中可设定一个TNode属性，调用前将Form1中的TreeView.selected赋予此属性，然后在调用你写的那个函数时将此属性作为实参就行了。

procedure TfrmTrain.CreateTrainStuff;
var
  frm: TfrmTrainStuffInfo;
  Mnode: TTreeNode;
begin
   try
     frm:= TfrmTrainStuffInfo.Create(nil);
     Mnode:= TreeView.Selected;
     if Mnode<>nil then
        GenDeptInfo(Mnode, frm.N_BMMC, frm.N_BMDM);
     frm.ShowModal;
   Finally
        frm.Free;
   end;
end;