动态添加控件

Question

如何动态的添加一组控件比如 (如一个panel里面有两个button)
根据用户的需求动态的添加相应多个这组控件

Answer 1

function addbtn(p:Tpanel;n,x0,y0,h,w:integer);
var
  i:integer;
begin
  for i:=1 to n do
  begin
    with Tbutton.create(self) do
    begin
      parent:=p;
      left:=x0+(i-1)*w;
      top:=y0+(i-1)*h;
    end;
  end;
end;

Answer 2

动态定义一个TBUTTON的数组，然后动态定位，Parent设置为TPANEL