Como puedo evitar que cierren una ventana usando ALT-F4
 

Buenos Días:

Quiero evitar que un usuario pueda cerrar una ventana emergente de mi sistema por que si lo hace puede quedar un proceso a la mitad y eso me puede traer consecuencias inesperadas. Yo se que debo validar para cualquier situación como que se apague el PC etc, pero de todos modos me facilitaria mucho saber como evitar que la cierren con la combinacion de teclas ALT-F4.

Gracias.

en el evento OnCloseQuery de la forma, pones


Canclose := False;

Es todo

Con el evento OnCloseQuery del form principal.

Saludos.

Ups... se me adelantaron :P

y luego para que la puedan cerrar con un boton???
 

La bronca de hacer eso es que luego ya no hallo como hacer para que si se pueda cerrar con un boton o una funcion para ello..jaja

Hola flystar,
Lo que te ofrecieron es sólo un ejemplo. Lo que debes hacer es intuitivo:

Código Delphi [-]
CanClose := Condición_para_el cierre

Por ejemplo:

Código Delphi [-]
CanClose := ((Edad <= 18) OR (Edad => 30)) OR (EstadoCivil = 'Casada')

Este último ejemplo es el que usaría para descartar féminas no disponibles:D

Saludos,

Ya entendi
 

Ya entiendo el asunto, Gracias a todos por sus respuestas navideñas..
ya se acerca navidad y todo lo veo navideño. jajaja

Me vas a perdonar Delphius, pero he encontrado un bug en tu código, pero mejor pongámoslo a prueba para que veas.

EdadFemina = 35
EstadoCivilFemina = Soltera

[EdadFemina => 30] = true
[EstadoCivilFemina ='Casada'] = false

true & false = false :eek:

Solución:

Resultado:
[EdadFemina => 30] = true
[EstadoCivilFemina ='Casada'] = false

true || false = true :D.

Saludos

Buen punto
 

Buen punto esos pequeños detalles, nos pueden dar dolores de cabeza feos por que pensamos que el error se encuentra en una zona mas complicada del código cuando en realidad se trataba de un pequeño descuido que dejamos pasar por alto en nuestras narices.

jeje Saludos navideños