在调用Form时，如何向Form中传递参数？

[Hanklee]

我在程序中调用Form时，涌入下代码：
with tform1.create(self) do
begin
showmodal;
free;
end;
那么我如何向tform1中传递参数？

[Lin]

很简单啊：在TForm1的Public部分声明参数，然后在showmodal;前面设置该参数即可。

[Hanklee]

但是我要在 Form Create 时就需要用到该参数。

[thinking_man]

你试试重载CREATE构造函数。

[thinking_man]

在tform1.oncreate中处理你的参数，可不可以？

[halfdream]

就象Lin 说的那样吧，
没有太大的必要重载Create吧。

[supershan]

yes

[ymxxm]

1。在Form的implementation 之前(End）后写一个Function(param_list)设置要传递参数,并且将form Show出。回传值；
2。在Public 部份重构Form 的Create(param_list)方法。在Create 中接收Function的参数.并且完成Init动作。
3.在其他单元中调用该Function
若有不明白的地方可Email :[e-mail]

[Hanklee]

Please click my name

[djhdu]

还有另一种方法,你可以在后一个form里设置一个label,在创建窗体时,可以把参数赋给label,并且可以把label属性设为不显示,在后一个form里就可以从form里接受参数!

[Hanklee]

ymxxm, 你能否提供代码例程？
谢谢

[wsf]

procedure sample(Node: TMyTreeNodeData);

implementation

{$R *.DFM}

procedure sample(Node: TMyTreeNodeData);
var
temp: string;
begin
MyNode := Node;

with Tfrm1.Create(Application) do
begin
if mynode... then
else
....
try
ShowModal;
finally
Free;
end;
end;
end;

[ymxxm]

Hanklee:
可以.You Email?