Evitar solamente Alt+f4 en mi aplicacion

[roman]

Empezado por Gelmin

en el evento de la form OnCloseQuery asignar a la variable CanClose:=false ya probe y funciona pero no me sirve porque mi aplicacion necesito que se cierre cuando se cierre la sesion de Win, y con ese codigo no me deja ni cerrar la sesion de windows porque claro hay un programa que le esta diciendo a Win que no se puede cerrar

Esta cuestión se relaciona con lo que anteriormente te expliqué en el mensaje Guardar antes de que mi aplicacion se cierre y lo diré de nuevo:

Por lo que a mi juicio es un error de diseño, Delphi no distingue si una ventana se cierra por métodos cómo Alt-F4, botón de cruz, método Close, etc. o porque se termina la sesión de Windows. Todo porque al recibir el mensaje WM_QUERYENDSESSION se limita a llamar al evento CloseQuery sin pasarle a éste algún parámetro que indique la forma en que se intenta cerrar la sesión.

La solución es redefinir el manejador del mensaje WM_QUERYENDSESSION y ahí fijar alguna bandera que indique por qué se está cerrando la sesión:

EndSession := true;

de manera que en el evento OnCloseQuery puedas actuar según el valor de dicha bandera:

CanClose := EndSession

// Saludos

[yusnerqui]

No estoy seguro que sea esto lo que quieres pero prueba esto en el evento on close

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if Application.Active then
Action:= caNone
else
Action := caFree;
end;

yo creo que pincha

[dblx]

Saludos delphiadictos...

Comenzaré mi respuesta diciendo que la respuesta esta un poco atrasada pero nunca es tarde para que alguien mas pueda resolver este detalle, yo lo resolví de la siguiente manera en el evento OnKeyDown del formulario, con la propiedad KeyPreview del form en True

Código Delphi [-]
KeyPreview := True

Código Delphi [-]
procedure TF_Config.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key = 18) or (Key = 115) then Key := 0;
  if Key = 27 then ModalResult := mrCancel;
end;

Asi evito que el form sea cerrado por la combinación ALT + F4 y cierre tanto por la X, si la ventana la tiene y por la tecla Escape

[sowei]

Quizá mejor esto no ?

Código Delphi [-]
    if ((ssAlt in Shift) and (Key = VK_F4)) then Key := 0;

Saludos