Crea una nueva ventana usa 2 botones BitBtn, al de aceptar le pones ModalREsult := mrOk y al de cancelar MrCancel
esa ventana llamala así
Código Delphi [-]
if Ventana.ShowModal = mrOK then
Se supone que es el usuario correcto
else
Application.Terminate.
Un saludo
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
|