向新打开的窗口传递参数值的问题

[dayspring322]

通过第一个窗口打开第二个窗口，并把第一个窗口里的某些参数值传到第二个窗口，怎么实现？谢谢各位高手

[findya]

Form2的OnCreate事件中

Form1.MyGetParams(Param1, Param2, ...)

过程自己定义

[killlaoli]

在form1中用变量把值保存起来，在form2中use form1的单元，然后访问行吗？

[guowzgyc]

在Form1声明一个全局变量装载参数
在Form2里引用即可

[chater]

有下面的方法最符合面向对象的思想，重载form2的create事件。
Private
constructor CreateParam(AOwner: TComponent;a,b:string);

………
implementation
constructor Tform2.CreateParam(AOwner:TComponent;a,b:string);
begin
inherited Create(AOwner);
form2.param1:=a;
form2.param2:=b;
……
end;

然后在form1 里打开form2:
form2:=Tform2.CreateParam(self,"chater","花心小刺猬");
form2.showmodal;
form2.free;

这样，"chater"和"花心小刺猬"这两个参数就被form1传递到了form2里的param1和param2里。

[chater]

不好意思，写错了一点，第一行不应是Private，而是Public.这样这个方法才能在form1调用时可见。

[mmtang3]

赞成chater(花心小刺猬)的方法。学习。