您所在位置：主题：delphi控件调用
league
[专家分：0] 发布于 2006-12-14 17:23:00
procedure fun;
var
Mnode: TTreeNode;
begin
Mnode:= TreeView.Selected;
if Mnode<>nil then
GenDeptInfo(Mnode, frm.N_BMMC, frm.N_BMDM);
frm.ShowModal;
end;
以上函数是用来显示窗体的但我要返回TreeView结点的值。这个函数是写在form1窗体中的.如：在form1中调用时Mnode可以返回值，但在form2中调用时Mnode返回的是空值。请问什样设置在form2中调用与在form1中调用同样都能返回Mnode的值。
var
Mnode: TTreeNode;
begin
Mnode:= TreeView.Selected;
if Mnode<>nil then
GenDeptInfo(Mnode, frm.N_BMMC, frm.N_BMDM);
frm.ShowModal;
end;
以上函数是用来显示窗体的但我要返回TreeView结点的值。这个函数是写在form1窗体中的.如：在form1中调用时Mnode可以返回值，但在form2中调用时Mnode返回的是空值。请问什样设置在form2中调用与在form1中调用同样都能返回Mnode的值。
