La capture d'un 'supprimer' les clés de la presse

Je ne peux pas comprendre comment capturer l' Supprimerappuyez sur une touche.
J'ai découvert que le code ASCII de la table, c'est à 127 place, mais if (Key = #127) then m'a nulle part.

Puis j'ai vérifié la valeur de VK_DELETE qui était de 47. Essayé de l'utiliser, mais il ne fonctionne pas.

La KeyPreview := true est défini dans mon formulaire.

J'ai essayé d'ajouter le ShowMessage(IntToStr(Ord(Key))) les Formes événement KeyPress, mais je n'ai jamais reçu le message contextuel en cliquant sur le Supprimer.

J'ai besoin de gérer l' Supprimer appuyez sur la touche dans dynamicaly créé des champs de saisie. Je veux contrôler quelle partie du texte utilisateur peut effacer dans ce domaine, et je sais comment gérer la suppression de texte à l'aide de retour arrière, maintenant besoin de comprendre comment le faire avec Supprimer.

Grâce

OriginalL'auteur user1651105 | 2010-03-06

  1. 12

    Vous devez gérer les OnKeyDown au lieu de la OnKeyPress événement. Si vous le faites alors VK_DELETE doit travailler pour vous. Notez que le paramètre de OnKeyDown et OnKeyUp est un Word, pas un Char comme pour OnKeyPress.

    OriginalL'auteur mghie

  2. 12

    Mghie a la bonne réponse, voici un exemple:

    procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if Key=VK_DELETE then
     showmessage('Delete key was pressed');
end;

    Noter que l'utilisateur peut également supprimer du texte à l'aide de couper vers le presse-papiers afin que vous mai besoin pour traiter aussi bien.

    Vous pouvez également supprimer du texte en le sélectionnant et en tapant le nouveau texte.
    Hewgill, il est facilement évitable. Je peux vérifier de quelle partie du texte est sélectionnée dans l'événement KeyPress, avant de le laisser à l'utilisateur d'écrire quelque chose.

    OriginalL'auteur Ville Krumlinde

  3. 4

    Vous pouvez utiliser de l'événement OnKeyDown pour filtrer les indésirables Supprimer touche enfoncée:

    procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift:
    TShiftState);
begin
  if Key = VK_DELETE then begin
    Beep;
    Key:= 0;
  end;
end;

    OriginalL'auteur kludg