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

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

Eh bien non :  
 
TButtun "classique"

 
Xi-Buttun

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