Désactiver Alt+F4 pour empécher la fermeture



Si votre intention est de vous assurer que l'utilisateur ne quitte pas prématurément l'application avant d'avoir effectué une tache précise, utilisez l'évennement OnCloseQuerry de la fiche et mettez la propriété CanClose sur false.

Si en revanche vous voulez désactiver les touches Alt+F4 pour empécher la fermeture de votre application, alors mettez la propriété KeyPreview de la fiche sur true, et capturez la touche dans l'évennement OnKeyDown.

Désactiver Alt+F4 pour empécher la fermeture

procedure TForm1.FormCreate(Sender: TObject);
begin
  // Il faut activer le KeyPreview pour que la
  // fiche intercepte tous les évennements
  // clavier
  KeyPreview := true;
end;
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  // On désactive le Alt+F4
  if ((ssAlt in Shift) and (Key = VK_F4)) then
    Key := 0;
end;


3 requête(s) SQL executée(s) en 0.001 Secs - Temps total de génération de la page : 0.005 Secs