Bloquear MainMenú o MdiForm

[forgiveness]

Mi pregunta es como el título ¿Como bloque el mainmenu (Ocultar NO) o bloqueo el MDIform?
He tratado muchas formas y nada. Tal vez alguien pueda ayudarme.

Gracias....!!

[rgstuamigo]

Empezado por forgiveness

Mi pregunta es como el título ¿Como bloque el mainmenu (Ocultar NO) o bloqueo el MDIform?
He tratado muchas formas y nada. Tal vez alguien pueda ayudarme.

Gracias....!!

Y no te sirve la propiedad enabled?
Saludos...

[[oscarac]]

que quieres decir con "bloquear" ?
quiza si eres un poquito mas explicito podria entenderte mejor
saludos

[forgiveness]

Empezado por rgstuamigo

Y no te sirve la propiedad enabled?
Saludos...

MainMenu1 no tiene esa propiedad. Puedo ocultarla con FormPrincipal.Menu:=nil Pero no deseo ocultarla... deseo nada mas deshabilitarla y al escribir el usuario y contraseña habilitarla.

[*Caro*]

Empezado por forgiveness

MainMenu1 no tiene esa propiedad. Puedo ocultarla con FormPrincipal.Menu:=nil Pero no deseo ocultarla... deseo nada mas deshabilitarla y al escribir el usuario y contraseña habilitarla.

Hola forgiveness, los TMenuItem del MainMenu si tienen la propiedad Enabled, puedes deshabilitar los MenuItems.

Código Delphi [-]
 for i:=0 to MainMenu1.Items.Count-1 do
  MainMenu1.Items[i].Enabled := False;

Saluditos

[rgstuamigo]

Empezado por Caro

Hola forgiveness, los TMenuItem del MainMenu si tienen la propiedad Enabled, puedes deshabilitar los MenuItems.

Código Delphi [-] for i:=0 to MainMenu1.Items.Count-1 do MainMenu1.Items[i].Enabled := False;


Saluditos

Efectivamente Caro,verdaderamente existe la propiedad enabled ,lo raro es que nuestro amigo forgiveness no lo haya visto.
Saludos..

[*Caro*]

Empezado por rgstuamigo

verdaderamente existe la propiedad enabled ,lo raro es que nuestro amigo forgiveness no lo hay visto.....

Por su mensaje el estaba probando con el TMainMenu directamente el cual no tiene la propiedad Enabled, pero si los TMenuItems.

Hola Juan Carlos .

Saluditos

[[jcarteagaf]]

Podrias hacer un pequeño procedimiento que haga eso

Código Delphi [-]
procedure TForm1.HabilitaMenu(bHabilitar : boolean);
var
   i : smallint;
begin
  for i:= 0 to mnuMiMenu.Items.count - 1 do
      mnuMiMenu.Items[i].enabled := bHabilitar;
end;

............  y lo llamarias asi

Habilitar(false);
Leer_usuario;
Habilitar(true);

Saludos

P.D. Parece que los bolivianos estamos muy activos hoy en el Club.....saludos a todos.