关于在DELPHI中内嵌WORD之后,怎样让WORD的右键菜单不可见!

Question

你把下面的代码COPY你的程序时试试：
uses Office2000;{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
  WordApplication1.Connect;
  WordApplication1.Visible:=true;
end;procedure TForm1.Button2Click(Sender: TObject);
var i:Integer;
begin
  if WordApplication1.CommandBars.ActiveMenuBar.Enabled  then begin
     with WordApplication1.CommandBars.ActiveMenuBar do begin
{       ListBox1.Clear;
       for i:=1 to Controls.Count do
         ListBox1.Items.Add(Controls[i].Caption);}//你可以把现有的菜单信息放在这个LISTBOX里看一下
       Controls[5].Set_Visible(false); //删除菜单,实际是隐藏
       Controls[Controls.Count].Set_Caption('我的帮助');  //改菜单项
       with Controls.Add(msoControlpopup,EmptyParam,EmptyParam,EmptyParam,true) do begin  //增加菜单
         Set_Caption('新菜单项');
       end;
     end;
  end;
end;