动态创建FORM的问题。

Question

动态创建FORM还是很简单的，但是要把动态创建的控件放入动态创建的FORM里 应该怎么做呢？并且为动态创建的控件添加各种事件！这个问题有点郁闷。麻烦给一思路 有简单易懂的代码更好。一定给分的哈，问的问题是：怎么把动态创建的控件放入动态创建的form里 并且为控件添加各种事件。并且当动态创建的FORM打开是就动态创建这个控件。

Answer 1

Form2 := TForm2.Create(Application);
Form2.OnShow := Form2Show;type
  TForm2 = class(TForm)
    ...
  private
    ..
  public
    procedure ButtonClick(Sender: TObject);
  end;
procedure Form2Show(Sender: TObject);
begin
  Button1 := TButton.Create(nil);
  Button1.Parent := Form2;  //Form2动态创建
  Button1.Top := ...
  Button1.Left := ...
  Button1.Width := ...
  Button1.Height := ...
  Button1.Name := 'Button1';
  Button1.Caption := '确定';
  Button1.OnClick := ButtonClick;
end;
代码写得比较乱。希望你能看懂。

Answer 2

动态创建的控件，创建的时候指定副窗口，再自己设置一下坐标不就可以了么？
对象的OnXXXXX 就是消息处理。