为动态创建的按钮触发OnClick事件

Question

我是南非的Matric学生。我必须创建一个PAT项目进行评估。 我创建了一个带有动态按钮的动态表单并对其进行编辑。但是我需要在单击按钮时触发按钮的单击事件。 我现在不知所措。他们教我们访问动态对象的属性，比如String Grid的cells属性，但不是如何为动态对象触发事件。

Answer 1

试试这个

procedure TForm1.btnNewClick(Sender: TObject);
begin
   // do something...
end;    

procedure TForm1.FormCreate(Sender: TObject);
begin
   btnNew := TButton.Create(Self);
   btnNew.Parent := Self;
   btnNew.OnClick := btnNewClick;
   // set other properties as needed ...
end;

如果您需要＆＃34;点击＆＃34;代码中的按钮，你可以这样做：

btnNew.Click;