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

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