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

Question

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

Answer 1

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

Answer 2

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

Answer 3

TForm1 = class(TForm)
...
public
  constructor Create(AOwner: TComponent; AParam: Integer);
end;implementationconstructor TForm1.Create(AOwner: TComponent; AParam: Integer);
begin
  Inhertied Create(AOwner);
  ...
end;使用时
Form1 := TForm1.Create(Application, 3);
这样就可

Answer 4

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

Answer 5

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