Deshabilitar TMainMenu

[Angel.Matilla]

Lo imaginaba. Gracias a los dos por las respuestas.

[ecfisa]

Hola.

Otras alternativas:

1.-

Código PHP:

...

void MainMenuEnabled(TMainMenu *mm, bool On = true)
{
   for( int i = 0; i < mm->Items->Count; i++ )
    mm->Items->Items[i]->Enabled = On;
}

// Ej. de uso:
void __fastcall ...
{
  MainMenuEnabled(MainMenu1, false);  // disabled
  MainMenuEnabled(MainMenu1);         // enabled    
... 


2.-

Código PHP:

...

class TMainMenuEx : public TMainMenu
{
private:
  SetMainMenuOnOff(const bool On = true)
  {
    for( int i = 0; i < Items->Count; i++ )
      Items->Items[i]->Enabled = On;
  }
public:
  __property bool Enabled = { write = SetMainMenuOnOff };
};

// Ej. uso:
void __fastcall ...
{
  TMainMenuEx *mme = static_cast<TMainMenuEx*>(MainMenu1);

  mme->Enabled = false; // disabled
  mme->Enabled = true;  // enabled
... 


Saludos

[bucanero]

hola

una forma simple de ocultar un MainMenu sin alterar sus elementos es asignando NULL a la propiedad menú del formulario contenedor. Esto funciona bien en DELPHI, imagino que al ser los objetos en C++ similares también debería de funcionar

Código Delphi [-]
    procedure SetMainMenuEnabled(const Value: Boolean);
    function GetMainMenuEnabled: Boolean;
...

    property MainMenuEnabled:Boolean read GetMainMenuEnabled write SetMainMenuEnabled;


...

procedure TForm1.SetMainMenuEnabled(const Value: Boolean);
begin
  if value then
    Menu := MainMenu1
  else
    Menu := nil;
end;

function TForm1.GetMainMenuEnabled: Boolean;
begin
  Result := assigned(menu);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  MainMenuEnabled := not MainMenuEnabled;
end;

[ecfisa]

Hola bucanero.

Si esa también es otra opción que funciona perfectamente en C++ Builder.
Pero como bién indicas, no desactiva el TMainMenu sino que cambia su visibilidad.

Saludos