多个动态按钮的事件我调用同一个自定义事件，想传按钮的caption做个参数

Question

how?
我下面这样的:
private
    procedure userclick(Sender:Tobject);Button.OnClick:=userclick;procedure  TForm1.userclick(Sender:Tobject);
begin
   ShowMessage('xxx');
end;
这样是可以  但是传不过去按钮的caption
procedure userclick(Sender:Tobject);
的参数一定要是tobject 可不可以添加一个参数
procedure userclick(Sender:Tobject;user:string);   ????????
怎么调用啊 大家帮个忙  我很着急啊 ^O^
help!!!!!

Answer 1

如果userclick是你自己定义的
你要看看怎么定义类了!
系统的类都可以传caption的呀
form1:Tform;
比如使用button类,定义button1对象,该name为userclick
在onclick事件
form1.userclick.caption:='dfd';

Answer 2

procedure TForm1.userclick(Sender: TObject);
begin
  with Sender as TButton do
    ShowMessage(Caption);
end;

Answer 3

westfly(西翔)的方法搞定了 
多谢  多谢  我给分了