如何捕获动态创建的控件的事件？

Question

我是Delphi和Firemonkey的新手。

假设我动态地（在运行时）在我的表单上创建了一个新按钮，并且我想捕获它的OnCLick事件。

如何将我的控制绑定到onclick程序？

由于

Answer 1

您必须在表单上使用此签名为onclick事件定义事件处理程序。

type
  TForm1 = class(TForm)
  private
    procedure MyButtonClick(Sender: TObject);
  public
    { Public declarations }
  end;

然后分配运行时创建按钮的onclick事件，如此

  RButton.OnClick:=MyButtonClick; //RButton is an instance to the button