如何添加或刪除的actionMenuBar

Question

我想知道windowMenu選項，如何添加或刪除actionMenuBar組件的windowMenu選擇，我有一個MDI aplication我可以添加的選項，但後來我無法將其刪除

對不起，我的英語

我有這樣的：

//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 report。