在DELPHI中怎样动态创建一下带按钮的窗体

Question

在DELPHI中怎样动态创建一下带按钮的窗体,也就是说,我目前已经在FORM1中了, 我想在FORM1的TForm1.FormCreate事件中,再动态创建一个窗体FORM2(并显示出来.),并且在form2窗体上带有一个BUTTON和EDIT,并且对BUTTON写简单的CLICK事件.

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
f:TForm;
edt:TEdit;
btn:TButton;
begin
f:=TForm.Create(nil);
try
  edt:=TEdit.Create(nil);
  btn:=TButton.Create(nil);
  edt.Parent:=f;
  edt.Top:=10;
  edt.Left:=10;
  edt.Width:=75;
  edt.Height:=24;
 btn.Parent:=f;
 btn.Top:=40;
  btn.Left:=40;
  btn.Width:=75;
  btn.Height:=24;
  btn.Caption:='clik';
  btn.OnClick:=hello;
  f.Caption:='form2';
  f.ShowModal;
finally
  f.Free;
end;
end;procedure TForm1.hello(sender: TObject);
begin
 ShowMessage('hello!');end;

Answer 2

谢谢上一层楼...THANK YOU .其实我是第一天在CSDN上发贴,,发觉原来世界是这么美好,,谢谢!!

Answer 3

那请问一下,,f:=TForm.Create(nil);和f:=TForm.Create(self)有什么不同呢?