FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Consulta sobre login
Amigos Disculpen que me meta en su conversacion, pero tambien necesitaba algo asi , probe y me funciono , lo que no se es que poner en el boton cancelar del formulario login, solo trabajo con el principal y el form del login
begin Application.Initialize; Application.CreateForm(TFrmPrincipal, FrmPrincipal); Application.CreateForm(TFrmIngreso, FrmIngreso); FrmIngreso.ShowModal; if FrmIngreso.TieneAcceso then Application.Run else Application.Terminate; end; end. En el boton cancelar puse esto pero me sale un error 'EAcces violation....' Begin Acceso := False; Close; end; el error me sale justo despues de ejecutar correctamente el comando 'Application.Terminate', cuando se ubica en el End..como que quisiera ejecutar algo mas...que no se que es , no se si me pueden ayudar |
#2
|
||||
|
||||
mira primero que todo, utiliza por favor las etiquetas para encerrar el codigo:
yo cambiaria algunas lineas de tu codigo algo asi:
y el boton cancelar la propiedad modal result le das mrCancel por supuesto en el de aceptar cuando asignesel valor a la variable tiene accesocambia esa linea por ModalResult := mrOk, listo
__________________
...Yo naci en esta ribera del arauca vibr@d0r Soy hermano de la espuma, de la garza, de la rosa y del sol... Viva Venezuela |
#4
|
|||
|
|||
Login
Gracias Amigo , Ya Funciono Con Tu Ayuda...!!
Saludos.. |
|
|
|