Intercepter la touche Tab (important !)

Intercepter la touche Tab (important !) - Delphi/Pascal - Programmation

Marsh Posté le 13-04-2010 à 15:16:45    

Bonjour à tous :(
 
Je galère comme c'est pas possible avec une simple bricole !  
 
Ce code n'est tout simplement pas exécuté  !  
 
[/code]
procedure TForm1.BitBtn1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
        Touche := Key;
        Traiter_Touche;
end;
[code/]
 
Idem avec l'événement Keypress :
 
[/code]
procedure TForm1.Btn_ActionKeyPress(Sender: TObject; var Key: Char);
Var Touche : integer;
 
begin
 
      Touche := Integer(Key);
      Traiter_Touche;
 
end;
[code/]
 
La touche TAB bascule bien le focus de l'un à l'autre des deux boutons... mais je ne peux pas la détecter, l'intercepter avec VK_TAB !! Donc, pas moyen d'écrire un code modifiant l'apparence du bouton qui vient de recevoir le focus !  
 
Comment intercepte-t-on la touche TAB ? la constante VK_TAB ne détecte pas l'appui de la touche Tabulation :(
 
Merci :(

Message cité 2 fois
Message édité par HERIBERT le 14-04-2010 à 07:55:22
Reply

Marsh Posté le 13-04-2010 à 15:16:45   

Reply

Marsh Posté le 14-04-2010 à 07:56:03    

HERIBERT a écrit :

Bonjour à tous :(
 
Je galère comme c'est pas possible avec une simple bricole !  
 
Ce code n'est tout simplement pas exécuté  !  
 
[/code]
procedure TForm1.BitBtn1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
        Touche := Key;
        Traiter_Touche;
end;
[code/]
 
Idem avec l'événement Keypress :
 
[/code]
procedure TForm1.Btn_ActionKeyPress(Sender: TObject; var Key: Char);
Var Touche : integer;
 
begin
 
      Touche := Integer(Key);
      Traiter_Touche;
 
end;
[code/]
 
La touche TAB bascule bien le focus de l'un à l'autre des deux boutons... mais je ne peux pas la détecter, l'intercepter avec VK_TAB !! Donc, pas moyen d'écrire un code modifiant l'apparence du bouton qui vient de recevoir le focus !  
 
Comment intercepte-t-on la touche TAB ? la constante VK_TAB ne détecte pas l'appui de la touche Tabulation :(
 
Merci :(


 
Up :( je suis bloqué ds mon programme... Merci :hello:

Reply

Marsh Posté le 14-04-2010 à 11:12:48    

HERIBERT a écrit :

Bonjour à tous :(
... Donc, pas moyen d'écrire un code modifiant l'apparence du bouton qui vient de recevoir le focus !  
(


Tes boutons n'ont pas un event onFocus() ?

Reply

Marsh Posté le 19-04-2010 à 08:16:01    

breizhbugs a écrit :


Tes boutons n'ont pas un event onFocus() ?


Eh bien non :  
 
TButtun "classique"
http://hfr-rehost.net/self/pic/ff49b301d5d293d79eae53eabfd69394f37e7d15.png
 
Xi-Buttun
http://hfr-rehost.net/self/pic/90fc61f88f67f5856f805afea900d1b1367d271b.png

Reply

Marsh Posté le 25-04-2010 à 22:23:01    

OnEnter() c'est quoi?
edit: j'arrive pas a trouver la doc de TButton mais d'après le paragraphe sur le focusdans  http://www.jmdoudoux.fr/delphi/fiche/index.htm ca à l'air de convenir.

Message cité 1 fois
Message édité par breizhbugs le 25-04-2010 à 22:35:48
Reply

Marsh Posté le 26-04-2010 à 07:49:09    

breizhbugs a écrit :

OnEnter() c'est quoi?
edit: j'arrive pas a trouver la doc de TButton mais d'après le paragraphe sur le focusdans  http://www.jmdoudoux.fr/delphi/fiche/index.htm ca à l'air de convenir.


 
J'utilise OnEnter pour détecter l'appui sur la touche 13 (return). Mais on peut se passer de ça pour détecter Return.  
 
Merci pour le lien : je vais voir ça de près ;)
 

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed