如何动态生成一个form窗体，然后在这个窗体上添加别的控件？

Question

系统窗体太多，不好管理。如何动态生成一个form窗体，然后在这个窗体上添加别的控件，然后在这个动态生成的form上操作，完毕后把这个动态窗口释放？

Answer 1

var
frm:TForm;
edt:TEdit;
begin
  frm:=TFrom.Create(nil);
  ...
  edt:=TEdit.Create(frm);
  edt.Parent:=frm;
  ...
end;

Answer 2

Sample:
var
  frm:TForm;
  btn:TButton;
....
  frm:=TForm.Create(Application);
  btn:=TButton.Create(frm);
  btn.Name:='btn1';
  btn.Catpion:='OK';
  btn.ModelResult:=mrOK;
  btn.Parent:=frm;
  frm.ShowModel;