delphi如何向一个要建立的Form传递参数？

[lijun2516]

delphi如何向一个要建立的Form传递参数？也就是说，要如何参数化建立Form,象C++中重载构造函数一样，增加一个参数就ok

[DJ_KK]

sendmessage()向窗体发送自己的消息
要显示一个窗体是form1.show;

[Billy_Chen28]

var
i: Integer;
begin
for i := 0 to ParamCount do
begin
ShowMessage(ParamStr(i));
end;
end;

[wx1452]

TForm1 = class(TForm)
...
public
constructor Create(AOwner: TComponent; AParam: Integer);
end;

implementation

constructor TForm1.Create(AOwner: TComponent; AParam: Integer);
begin
Inhertied Create(AOwner);
...
end;

使用时
Form1 := TForm1.Create(Application, 3);
这样就可

[CharlesWang]

重载constructor Create函数
不要忘记加inherited

[wx1452]

为了避免警告
constructor Create(AOwner: TComponent; AParam: Integer); reintroduce;