[[egostar]]

Yo no entiendo algo

Empezado por BuRtOn

Esto se genera en el Formulario Serial es simple....Apenas se ejecute la condicion que si el IdArchivo = IDPc es verdadero, inmediatamente se vuelve Invisible el FormSerial, y aparece el Formulario de Seguridad de la aplicacion, que es el que contiene lo basico de un modulo de seguridad, El Tipo de usuario, el loggin y el password, y un boton que es aceptar y otro botn que es salir de la aplicacion....Bueno aqui va la segunda parte de lo que hice:

Porque haces esa comparación en el Formulario frmSerial, no sería mas conveniente hacerlo en el proyecto principal?

Yo lo haría en el evento OnShow del form principal, hablitando (si existe) el menú o deshabilitando el menu (si existe) dependiendo de si está o no registrado.

Código Delphi [-]
if IdArchivo = IdPc then begin
   MessageDlg('Bienvenido',mtInformation,[mbOK],0);
   HabilitaMenu;
end
else begin
       MessageDlg('No se ha registrado el sistema, favor de registrar',mtInformation,[mbOK],0);
       frmSerial.ShowModal;
       if frmSerial.ExistoRegistro then begin
          HabilitaMenu;
       end
       else begin
              ShowMessage('sistema no registrado satisfactoriamente');
              DesHabilitaMenu;
       end;
end;

Es decir solo cuando no está registrado el sistema muestras la pantalla de registro, si está registrado ya no se muestra nunca.

Salud OS