Bloquear las teclas ALT + F4

[lgarcia]

Hola: Estoy haciendo una aplicacion en D7 y todo bien pero hay una ventana de entrada de datos que es critica y el usuario con la combinacion ALT + F4 puede salir de esta, alguien tiene alguna idea de como bloquear esto. Saludos Luis PD:

[roman]

Más que bloquear la combinación de teclas, usa el evento OnCloseQuery del formulario para evitar que lo cierren.

Código Delphi [-]
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if NoSePuede then
    CanClose := false;
end;

// Saludos

[[nlsgarcia]]

lgarcia,

...una ventana de entrada de datos...la combinación ALT + F4...¿como bloquear esto?...

Revisa este código:

Código Delphi [-]
...

procedure TForm1.FormCreate(Sender: TObject);
begin
   KeyPreview := True;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if ( Shift = [ssalt] ) and ( Key = VK_F4 ) then
      Key := Ord(0);
end;

...

El código anterior bloquea la pulsación de la combinación de teclas Alt+F4 en el formulario Form1.

Espero sea útil

Nelson.