Intercepter les touches clavier sur la fiche

Version imprimable

14/01/2008, 09h50
Bourak

Intercepter les touches clavier sur la fiche
Salut les developpeurs

j'ai essayer d'intercepter la touche d'echape sur ma forme mais elle ne fonctionne pas sur delphi 2007.
J'ai metté la propriété KeyPreview de la fiche à True.
Code:

1 2 3 4 5 6 7 8 procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin // Un appui sur ESC émet un caractère #27. If (Key=Char(VK_ESCAPE)) Then Close ; end;
merci d'avance

Je viens d'essayer sur Delphi 2007 et ça fonctionne toujours ;)
En fait, quand tu as un doute et que tu veux savoir où il y a un problème, il est intéressant de faire un essai avec un "ShowMessage".
Exemple:
Code:

1 2 3 4 5 6 procedure TForm2.FormKeyPress(Sender: TObject; var Key: Char); begin // Un appui sur ESC émet un caractère #27. If (Key=Char(VK_ESCAPE)) Then ShowMessage('Hello'); //Close ; end;
Là, ton message apparait... Donc le problème ne vient pas de la procédure mais du "Close".
En fait, "Close" tout seul ne veut pas dire grand chose.
"Form1.Close" serait peut-être mieux.

André

14/01/2008, 14h42
Bourak

Salut
Merci pour votre reponse

J'ai essayer mais elle reste la même problème

Salut,

Pour ma part, avec KeyPreview de la fiche à True, j'utilise FormKeyUp :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 procedure TfrmGen.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin    if ssCtrl in shift then
          begin case key Of
                107 : {+} begin ...  end;
                71  : {G} begin ...  end;
                73  : {i} begin ...  end;
                {65  : A sélectionne tout}
                end; 
          end;
          if key=27 then {Echap}
          begin ...
          end;
end;

... et ça a toujours marché (Delphi-5 Win98)

A+ :D