问一个小问题？在线等待！

Question

（1）在窗体上加一个TMainMenu.然后建立几个TMenuItem.
(2)再在窗体上加几个TToolBar,右键-->New Button.键几个TToolButton.Click TToolButton.会产生一个Event处理函数，如何使Click 某个TMenuItem和
Click 某个TToolButton由一个函数来处理？  怎样来设置？谁能个一个详细的
说明呀。  谢了！

Answer 1

Click TToolButton.会产生一个Event
begin
  TMenuItem.click
end

Answer 2

TToolButton的OnClick后面的下拉箭头
选TMenuItem的OnClick

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
begin   mainMenu.Items.Items[1].Click;end;

Answer 4

可先在按钮处理好事件，然后再在菜单里调用
ToolButton1.Click;

Answer 5

定义hh这个函数:unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, ToolWin, Menus;type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    procedure hh(Sender: TObject) ;
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.DFM}{ TForm1 }procedure TForm1.hh(Sender: TObject);
begin
  //
end;