Deshabilitar Opciones de Un MainMenu

[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.