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

Question

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

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

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

Answer 6

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;

Answer 7

Hanklee:
可以.You Email?

Answer 8

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