这个问题很菜，关于动态创建的按钮：）

Question

var bn:TButton;
begin
  bn:=TButton.create;
  bn.onclick:=aprocedure;
end;
回答行吗？

Answer 1

比如onmousedown这个事件怎么写呢，具体一点好吗：）

Answer 2

procedure answer(str:string);
begin
  showmessage(str);
end;
//////////
bn.onmousedown:=answer('This answer is OK?');

Answer 3

可是onmousedown 事件有好几个参数呀，比如点到位置的横、纵坐标我要用到呀

Answer 4

procedure TForm1.ProcMouseDown(Sender: TObject; Shift: TShiftState; x, y: Integer);
begin
  //do something yourself;
end;procedure TForm1.FormCreaet(Sender: TObject);
begin
  Button := TButton.Create(Self);
  Button.OnMouseDown := ProdMouseDown;
end;