没办法 问个很多人都问过的问题!

Question

如何把一个过程指定给一个控件的事件

Answer 1

button1.onclick:=defineprodure(button1);

Answer 2

procdure asdf();
button1.onclick:=asdf();

Answer 3

程序给了我一条 not enough actual parameters错误 该如何解决

Answer 4

这样子整：
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    procedure OnButtonClick(Sender: TObject);
    procedure OnButtonMouseMove(Sender: TObject; Shift: TShiftState; X,
                                      Y: Integer);
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.DFM}procedure TForm1.OnButtonClick(Sender:TObject);
begin
  ShowMessage('Click');
end;procedure TForm1.OnButtonMouseMove(Sender: TObject; Shift: TShiftState; X,
                                      Y: Integer);
begin
  ShowMessage('Move');
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  Button1.OnClick := OnButtonClick;
  Button1.OnMouseMove := OnButtonMouseMove;
end;end.