Deshabilitar Opciones de Un MainMenu

[hondaalberto]

Muchas Gracias oscarac por tu Respuesta pero cuando coloco el codigo que me pusiste me da los siguientes errores:

[Error] Unit1.pas(59): Undeclared identifier: 'Mantenimientos'
[Error] Unit1.pas(59): Missing operator or semicolon
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'


El Código que tengo es el siguiente siguiendo tu ejemplo:
FPrincipal.MenuPrincipal.Mantenimientos.enable:=false;

El Formulario donde esta el menu se llama "FPrincipal" el componente "MainMenu se llama "menú Principal" el Menú se llama Mantenimientos y tiene los submenus:

Usuarios
Clientes
Proveedores
Bancos

[[oscarac]]

quiza te estas equivocando en algun nombre...

[hondaalberto]

Revise todos los nombre de los componentes y todos estan tal cual como te escribi anteriormente y si cambio la palabra mantenimientos por Usuarios me devuelve solo estos dos errores:

[Error] Unit1.pas(62): Undeclared identifier: 'Usuarios'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

Revise todo ya a ver si esta utilizando algun nombre incorrecto y todo esta tal cual como lo coloque el mensaje anterior pero sigue dandome errores.

Gracias por tu tiempo...

[ecfisa]

Hola.

Te pongo un ejemplo de como activar/desactivar cada uno de los items que dependen del MenuItem 'Mantenimiento' desde otro form.

Código Delphi [-]
...
type
  TForm2 = class(TForm)
    ComboBox1: TComboBox;
    procedure FormShow(Sender: TObject);
  private
     procedure ComboBox1Change(Sender: TObject);
  public
  end;
...
implementation 

uses Unit1;

procedure ItemOnOff(Ix: Integer);
begin
  with FPrincipal.MainMenu1 do
   Items[0].Items[Ix].Enabled:= not Items[0].Items[Ix].Enabled;
end;

procedure TForm2.ComboBox1Change(Sender: TObject);
begin
  ItemOnOff(ComboBox1.ItemIndex);
end;

procedure TForm2.FormShow(Sender: TObject);
begin
  with ComboBox1 do
  begin
    Clear;
    Items.Add('Usuarios');
    Items.Add('Clientes');
    Items.Add('Proveedores');
    Items.Add('Usuarios');
    ItemIndex:= 0;
    OnChange:= ComboBox1Change;
  end;
end;
...

Mostra a Form2 con Show así tenés accesibles las dos ventanas al mismo tiempo y verificas los estados.

Un saludo.

[hondaalberto]

Muchas Gracias ecfisa voy a probar y te dejo saber si me funciono asi, para que quede en el foro registrado de que podemos resolver un problema como ese de esa forma y le pueda servir a otros tambien.