如果我的动态创建一个button，想把它的onclick写到一个公共的单元的里，怎么写呀？

Question

_objmi.OnClick:=addpoppro;addpoppro我想放在一个unit里面，怎么做呀？

Answer 1

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    procedure FormShow(Sender: TObject);  private
    procedure MY_ButtonOnclick(Sender: TObject);
    { Private declarations }
  public
    My_Button : TButton ;
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}
procedure TForm1.MY_ButtonOnclick(Sender: TObject) ;
begin
  showmessage('Yes!') ;
end;procedure TForm1.FormShow(Sender: TObject);
begin
    My_Button := TButton.Create(self);
    My_Button.Parent := Form1 ;
    My_Button.Caption := 'OK' ;
    My_Button.Top := 10 ;
    My_Button.Left := 10 ;
    My_Button.Width := 75 ;
    My_Button.Height := 25 ;
    My_Button.OnClick := MY_ButtonOnclick ;end;end.