Delphi类封装控件的事件不工作？

来源：百度知道 编辑：UC知道 时间：2024/06/07 01:26:14
A是一个控件，有一个事件E
建立类B，A是B的属性，P是B的方法，与E的定义一致
在B的构造函数中，将A.E := P；但这样并不会触发P，为什么？

Form1的AcitveControl属性为btn1。
测试如下
constructor TForm1.Create(AOwner: TComponent);
begin
inherited;
btn1.OnClick:=test;
end;

procedure TForm1.test(Sender: TObject);
begin
MessageDlg('test', mtWarning, [mbOK], 0);
end;
正常。
楼主再仔细看看是不是代码的问题。