动态创建控件

动态创建控件

var

 sarr: array [0 .. 2] of tedit; // 动态定义组件数组

 But: array of TButton; // 静态定义组件数组



 //动态创建控件:



  SetLength(But, 3); // 设置控件数量

  for i := 0 to High(But) - 1 do

  begin

    But[i] := TButton.Create(Form1);

    But[i].Parent := Form1; // 设置父

    But[i].Name := 'But' + inttostr(i);

 But[i].OnClick := 点击按钮；

    But[i].Top := i * 30 + 10

  end;



// 响应动态创建的出来控件的事件

 public

    { Public declarations }

procedure 点击按钮(Sender: TObject);//



procedure TForm1.点击按钮(Sender: TObject);

begin

  if Sender is TButton then

  begin

    if (Sender as TButton).Name = 'But0' then

      ShowMessage('你点击了But0');

  end;

end;



// 释放控件

procedure TForm1.Button2Click(Sender: TObject);

var

  i: Integer;

begin

  for i := 0 to High(But) do

    But[i].Free;

end;