rt

解决方案 »

  1.   

    有什么难度吗?直接调用click事件就可以呀
    procedure TForm1.ToolButton1Click(Sender: TObject);
    begin
    showmessage('ok');
    end;
    procedure TForm1.Button1Click(Sender: TObject);
    begin
    ToolButton1Click(nil);
    end;
      

  2.   

    it's easy!在该对象的clickevent中下拉列表中选取相应工具条事件即可!
    ;)
      

  3.   

    procedure TForm1.Button1Click(Sender: TObject);
    begin
      ToolButton1Click(self);
    end;
      

  4.   

    在该对象的clickevent中下拉列表中选取相应事件即可,直接写事件名称也行
      

  5.   

    在要点击的按钮上的属性窗口中的事件栏内的onclick事件下拉选中你要的toolbar上一个按钮
    的ToolButton1Click事件就是了
      

  6.   

    在该按钮的clickevent中下拉列表中选取相应的事件即可
      

  7.   

    简单的就用billcsh(小赞),jacket008(夜猫), basagx(夕阳醉了) ,
     qwertyasd(昊) 的方法,啥代码也不用写。