Como puedo evitar que cierren una ventana usando ALT-F4

[flystar]

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.

[[poliburro]]

en el evento OnCloseQuery de la forma, pones


Canclose := False;

Es todo

[D-MO]

Con el evento OnCloseQuery del form principal.

Saludos.

Ups... se me adelantaron :P

[flystar]

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

[[Delphius]]

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

Saludos,

[flystar]

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

[D-MO]

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

Solución:

CanClose := ((Edad <= 18) OR (Edad => 30)) OR (EstadoCivil = 'Casada')

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

true || false = true .

Saludos

[flystar]

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