关于创建动态按钮

Question

当然可以，button的onclick本身就是一个tnofiyevent;写一个过程赋值就够了
其它的就简单了
设置好位置和parent,就是这么简单

Answer 1

procedure TFrmDemo.CreateButton;
var
  PsButton:TButton;
  G_ButtonNumb:Integer;//Button的数量
begin
  PsButton := TButton.Create(FrmDemo);
  with PsButton do
  begin
    Name := 'PSButton'+IntToStr(G_ButtonNumb);
    Caption := 'PSButton'+IntToStr(G_ButtonNumb);
    Height:= 25;
    Width:= 60;
    Left:= MXPos;//位置
    Top:= MYPos;//位置
    OnClick := Button1Click; //Click事件
  end;
  G_ButtonNumb := G_ButtonNumb +1;
end;