Delphi动态生成控件

一、不可视，以创建一个按钮为例：
var
  Button1: TButton;
begin
  Button1 := TButton.Create(Self);
  Button1.OnClick := DoClick;  //绑定事情响应函数，如果有的话
end;

二、可视，以上述按钮为例，如果需要在界面上显示，需要指定Parent及Pos，如下：
var
  Button1: TButton;
begin
  Button1 := TButton.Create(Self);
  Button1.OnClick := DoClick;  //绑定事情响应函数，如果有的话
  Button1.Left := 100;
  Button1.Top := 50;
  Button1.Parent := Self;  //窗体或容器控件
  Button1.Show;
end;