如何实现窗体间的值传递？

[xiaojun82cn]

问题如上，谢谢！！

[fcl912]

可以从一个窗体取另一个窗体的值啊，先用USE UNIT把两个窗体关联起来，就可以取了啊，就像在同一窗体里一样
如
在form2中取得form1的label1的caption
var
i:string;
begin
i:=form1.label1.caption;
end;

[fcl912]

不知道是不是这个意思

[shuiying]

可以在一个窗体中定义一个public变量,在其他窗体中引用变量的单元,变可以在其他窗体中使用所设变量了.

[xiaojun82cn]

mg_name、mg_ip、mg_note已经在f_MG_m窗体的public中定义了代码如下：

public
{ Public declarations }
mg_name,mg_ip,mg_note:string;

Tf_MG_mod窗体的FormShow代码：

procedure Tf_MG_mod.FormShow(Sender: TObject);
begin
inherited;
edit1.Text:=mg_m.f_MG_m.mg_name;
edit2.Text:=mg_m.f_MG_m.mg_ip;
Memo1.Text:=mg_m.f_MG_m.mg_note;
edit2.SetFocus;
end;
end.
只有mg_name的值传过来了，mg_ip、mg_note没传过来，不知道为什么。