一个动态控件的问题.....

Question

我试过，没问题
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
      procedure myonclick(Sender: TObject);
  end;
var
  Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
var
    a:TButton;
begin
    a:=TButton.Create(Form1);
    a.OnClick:=myonclick;
end;
procedure TForm1.myonclick(Sender: TObject);
var
    i:Integer;
begin
 showmessage('aa');
end;
end.

Answer 1

我另外创建了一个类Tdata,其中有
procedure OnTrigger(sener:TObject);前者创建时我定义： Tport.Ontrigger:=Tdata.OnTrigger;    //>>Tdata.OnTrigger
compile时说 TNotify和 procedure类型不匹配，为什么？ =========================================
Tport和Tdata是定义的类，你应该引用的是对象的事件和函数：
fdata := TData.create;
fport := TPort.create;fport.Ontrigger:=data.OnTrigger;