Ver Mensaje Individual
  #6  
Antiguo 04-05-2011
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
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.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 04-05-2011 a las 02:10:39.
Responder Con Cita