动态生成按钮的点击事件

Question

with TButton.Create(Self) do
    begin
     Top :=y;
     left :=x;
     Parent := self;
     Caption := fill_phrase[1];
     phrase:=fill_phrase[1];
     visible := true;
     onclick:=showinfo;
     //color:
    end;
我想在按钮事件中传递变量fill_phrase[1]给showinfo可不可以啊？如果可以是不是直接在showinfo过程中加一个变量procedure showinfo(Sender:TObject;str:string);如果不可以，请问怎样实现每一个动态生成的按钮的点击事件跟不同的变量联系？

Answer 1

onclick:=showinfo;
showinfo只能带一个Sender:TObject参数，；至于你的要求需要变通解决。比如。。你可以在
创建 BUTTON的时候，给他们的TAG 属性 设置成不同的值然后用 TButton(Sender).tag来区分是哪个按牛的事件发生了。