Ver Mensaje Individual
  #1  
Antiguo 26-07-2012
steelha steelha is offline
Miembro
 
Registrado: mar 2012
Posts: 158
Reputación: 13
steelha Va por buen camino
Tengo Problema al deshabilitar opciones de un menu

Buenas tardes
Escribo ahora para ver si me ayudan a solucionar un problemas. Estoy tratando de des-habilitar las opciones de un tmainmenu. Esto viene definido según el valor de una variable, la cual toma el valor al momento del usuario loguearse (este valor esta guardado en una tabla).

Lo que sucede es que antes de tener el código funciona de maravilla, pero aun pongo el codigo en comentario la aplicación sale así como si nada, me explico: me logueo, carga la ventana, presenta todo y se cierra. Aca dejo el código que me afecta no se porque se ve bien (eso creo yo).

Código Delphi [-]
procedure Tfrmprincipal.FormShow(Sender: TObject);
begin
  imgfondo.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'\imagen\fondo.jpg');
  nivel_usuario := frmLogin.nivel;

{  N0CuentasdeUsuarios1.Enabled := False;

  case nivel_usuario of
    0:begin
          Mantenimiento1.Enabled := False;
          Consultas1.Enabled     := False;
      end;
    1-4:begin
          N1Status1.Enabled     := False;
          N3Cargos1.Enabled     := False;
          N4Miembros1.Enabled   := False;
          I1.Enabled            := False;
          N0CuentasdeUsuarios1.Enabled := False;
      end;
    9:begin
          N0CuentasdeUsuarios1.Enabled := True;
      end;
  end;
  Salir1.Enabled         := True; }
end;
Responder Con Cita