ToolButton 的onclick事件的下拉框里选择TMainMenu的Click事件即可!

解决方案 »

  1.   

    在 TAction写代码,然后相当于将这些函数的指针存放在数组里然后 Action1[2].Exectue 就可以了
      

  2.   

    (sender as ttoolbutton).click
      

  3.   

    把代码编写在TAction中,菜单和ToolButton都有action属性,你把该属性全部指定该TAction就可以了
      

  4.   

    你在taction双击,有一个actionlist的对话框,你研究研究。
      

  5.   

    TMainMenu的Click事件直接调用ToolButton的事件过程:
    procedure TForm1.MainMenuClick(sender:TObject);
    begin
      ToolButton1Click(Toolbutton1); // ToolButton1 的单击事件过程;
    end;