CODEWITHSUNDEEP
delphi
Manuel Paz
Manuel Paz

Reputation: 79

how to add or remove windowMenu option of actionMenuBar

I want to know, how to add or remove windowMenu option of actionMenuBar component, i have a mdi aplication i can add the option but later I can't remove it

sorry my english

i have this:

   //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;

Upvotes: 2

Views: 545

Answers (1)

NGLN
NGLN

Reputation: 43649

type
  ActionMainMenuBarAccess = class(TActionMainMenuBar);

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

See also this QualityCentral report.

Upvotes: 3

Related Questions