创建了动态数组控件以后......

Question

我没有调试过，试试看吧：
var
  btn : TButton;
begin
  btn := Sender as TButton;
  btn.Caption := 'good';
end;

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
  TButton(Sender).Caption := '非要good吗？';
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  //....
  bt[0].OnClick := Button1Click;
  bt[1].OnClick := Button1Click;
  bt[2].OnClick := Button1Click;
end;

Answer 2

var B:array of pointer;
  procedure  TForm1.Button1Click(Sender:  TObject);
  begin
      TButton(Sender).Caption  :=  '非要good吗？';
  end;
  
  procedure  TForm1.FormCreate(Sender:  TObject);
  begin
      //....
      setlength(b,3);
      bt[0].OnClick  :=  Button1Click;
      bt[1].OnClick  :=  Button1Click;
      bt[2].OnClick  :=  Button1Click;
  end;