Discussion :

[gilardino]

Salut tout le monde

Je voudrais savoir comment affecter des raccourcis clavier à des boutons, par exemple :
Lorsque j’appuis sur la touche F3 c’est (l’enregistrement du client)
Lorsque j’appuis sur la touche F1 c’est le bouton HELP qui s’affiche
Lorsque d'appuis sur echap la fenêtre se ferme..etc

Voici l’image au dessous qui représente la situation, et merci d’avance.

[ero-sennin]

Salut,

Pour faire ce que tu souhaite, tu dois mettre la propriété KeyPreview de ta form à true et ensuite, coder ce que tu souhaites faire dans l'événement OnKeyDown ou OnKeyUp (Au choix)... Par exemple :

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
   Ord(VK_F1): BitBtnHELP.Click;
   Ord(VK_F3): BitBtnSave.Click;
   Ord(VK_ESCAPE): Close;
  end;
end;

En espérant que cela réponde à ta question!
A+

[gilardino]

Ça a parfaitement répondu à ma question, et pour cela je vous remercie infiniment , reste une dernière chose :
Comment raccourcir les touches (dans ce même contexte) du genre (Alt+C, Alt+F1 ..Etc)? et merci d’avance.

[ero-sennin]

Pour faire le test sur Alt, Ctrl etc... il faut tester le paramètre Shift qui peut prendre les valeurs si dessous :

Le type TShiftState est utilisépar les gestionnaires du clavier et de la souris pour déterminer l'état des touches Alt,Ctrl et Maj ainsi que l'état des boutons de la souris au moment oùl'événement se produit.Voici un ensemble d'indicateurs et leur signification :

Valeur Signification

ssShift La touche Maj est enfoncée.
ssAlt La touche Alt est enfoncée.
ssCtrl La touche Ctrl est enfoncée.
ssLeft Le bouton gauche de la souris est enfoncé.
ssRight Le bouton droit de la souris est enfoncé.
ssMiddle Le bouton central de la souris est enfoncé.
ssDouble On a double-cliquésur la souris.

Admettons que je reprenne ton le code de mon post précédent mais que je veuille afficher l'aide avec Alt+F1 ... ça donnerai ceci :

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
16
17
18
19
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  // Si Alt est enfoncé ...
  if ssAlt in Shift then
  begin
    case Key of
     Ord(VK_F1): BitBtnHELP.Click;
    end;
  end
  // ... sinon
  else
  begin
    case Key of
     Ord(VK_F3): BitBtnSave.Click;
     Ord(VK_ESCAPE): Close;
    end;
  end;
end;

Voilà
A+