delphi - actionMenuBar の windowMenu オプションを追加または削除する方法

Question

actionMenuBar コンポーネントの windowMenu オプションを追加または削除する方法を知りたいです。オプションを追加できる mdi アプリケーションがありますが、後で削除できません。

ごめんなさい、私の英語

私はこれを持っています：

   //add windowmenu and works fine       
   procedure TForm2.Button1Click(Sender: TObject);
   begin
    Form1.ActionMainMenuBar1.WindowMenu := '&Ventana';
   end;

   //remove windowmenu but dont work
   procedure TForm2.Button2Click(Sender: TObject);
   begin
    Form1.ActionMainMenuBar1.WindowMenu := '';
   end;

Answer 1

type
  ActionMainMenuBarAccess = class(TActionMainMenuBar);

procedure TForm2.Button2Click(Sender: TObject);
begin
  ActionMainMenuBar1.WindowMenu := '';
  ActionMainMenuBarAccess(ActionMainMenuBar1).FWindowMenuItem := nil;
  ActionMainMenuBarAccess(ActionMainMenuBar1).RefreshMDIMenu;
end;

このQualityCentral レポートも参照してください。