代码如下
procedure TMainForm.TreeView2Click(Sender: TObject);
var
 node:ttreenode;
begin
 if treeview2.Selected =nil then exit;
 node:=treeview2.Selected ;
 Cur_yg:=PmyRec(node.Data)^.BMid ;
///////////////////////////////if ExistForm('Frmjbzl') then frmjbzl.LgetyG(pmyrec(node.data)^.BMid);
if ExistForm('frmjcgl') then frmjcgl.OpenData(Cur_yg); 
end;