可以的呀,关键是你的这些功能是需要预先写好的,例如写在一个TActionList里,然后动态创建按钮,并将某个ACTION分配给这个按钮,即可实现你要的效果,如果你需要,可以写信给[email protected]
并告之比较详细的要求,我写个例子给你。

解决方案 »

  1.   

    比如,动态生成了一个button:
    procedure TForm1.Button1Click(Sender: TObject);
    var
      t:tButton;
    begin
      t:=tbutton.Create(application);
      t.Parent:=form1;
      t.Left:=75;
    end; 
    现在我要让它们响应一些事件,如click事件,
    自己写一个事件, 如:
    Procedure MyClick(Sender: Tobject);
    begin
    end;然后在生成BUTTON的时候:
    t := TButton.create(application);
    t.OnClick := MyClick;
      

  2.   

    我的EMAL:[email protected]
    谢了,一会儿给分!!
      

  3.   

    同意venne(感觉一下)的思路参考:
    TComponent.FindComponent()
    TComponent.Name
    TButton.Action