Discussion :

[chekkal]

Bonjour à tous,

Pour mettre un peu de couleur et pour faire jolie j'ai remplacé les Tbutton de mon application par des Tlabel avec des couleurs de fond. Mais maintenant je suis confronté au problème des touches de raccourci.

En effet, j'avais des Tbutton(&&Nouveau,&&supprimer...) et on appuyant sur Alt+N ou Alt+s l’exécution du onclick se fait automatiquement mais pas avec les Tlabel

[tourlourou]

Les Labels ne prennent pas le focus => je suppose inaccessibles par les raccourcis-clavier.
Il existe certainement des TColorButton qui feraient l'affaire.
Et même, en gardant des TButton : http://delphi.developpez.com/faq/?pa...-un-descendant, lien vers la FAQ trouvé dans cette discussion.

[chekkal]

Bonjour,

j'ai une mauvaise expérience sur les composant dérivés (bugs), j'ai déjà telecharger les composant cindy et il m'on crées beaucoup de problémes et j'ai fini par les supprimer dans mes programmes.

J'ai comme même réussi à résoudre mon probléme on utilisant l'evenement onkeydown de la fiche comme suite

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
procedure Tform1.formkeydown(sender:Tobject;key:word;shift:Tshiftstate);
begin
////clavier est une variable de controle       
 if key=18 then
          clavier:=18
        else
        if clavier=18 then
        case key of     
       65:kouvreclick(ouvre);
       66:fermeclic(ferme);
       end;
 
 
end;

[ThWilliam]

Bonsoir,

tu peux te passer de ta variable "clavier" en faisant simplement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
procedure Tform1.formkeydown(sender:Tobject; key:word; shift:Tshiftstate);
begin
     if ssAlt in Shift then      
         case key of     
            65:kouvreclick(ouvre);
           66:fermeclic(ferme);
         end;
end;

Cordialement
Thierry

[chekkal]

bonjour @thwilliam,

tu peux te passer de ta variable "clavier" en faisant simplement :

merçi pour ta reponse, mais mon application est plus compliquer que ça. En effet, la touche ALT aussi à une fonction ou plutôt 2 fonctions est qui sont exécutes par condition.
1/ L'appui sur la touche ALT plus de 500 mls exécute ouvreclick1
2/ l'appui sur la touche ALT moins de 500 mls execute ouvreclick2

et tout ça est gérer par timer. Moi , je déteste la souris alors toutes les touches du clavier sont sollicitées