为动态创建的按钮触发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;

如果您需要在代码中"单击"按钮,则可以执行以下操作:

btnNew.Click;