Bloquear las teclas ALT + F4
 

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:

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

lgarcia,

:rolleyes:

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.