Discussion :

[benn13]

Bonjour,

Je rencontre un problème que je n'arrive pas à résoudre. Je veux associer un bouton avec un raccourci clavier c'est à dire que soit on clique sur le bouton, soit on utilise F1 par exemple en raccourci. J'ai bien mis KeyPreview sur true dans ma forme et j'ai le code suivant :

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
20
21
procedure TMAIN.BtSupprimerClick(Sender: TObject);
begin
  if MessageDlg('Confirmez vous la suppression de l''enregistrement' +
      ZDBPGA.QRY_PGA_SECS1.Value + '-' + ZDBPGA.QRY_PGA_S1SECLIB.Value,
    mtWarning, [mbYES, mbNO], 0) = mrYES then
  begin
    ZDBPGA.QRY_PGA_S1.Delete;
    ZDBPGA.QRY_PGA_S1.ApplyUpdates;
  end;
end;
 
 
procedure TMAIN.BtSupprimerKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
      Begin
         Case Key of
            VK_F1    :  BtSupprimerClick(Sender) { Appui sur F1 }
         End ;
      End ;
end;

Quelque chose m'échappe, j'ai beau chercher dans le forum et sur Internet, je pense reproduire le bon code.

[ShaiLeTroll]

Il y a d'autres façons de procéder !
Une TActionList, le Bouton utilise la TAction qui a le ShortCut F11
Un TApplicationEvents.OnShortCut
Un RegisterHotKey + WMHotKey qui lui fonctionne même lorsque ton application n'est pas active


Sinon, le OnKeyDown c'est pas sur BtSupprimer qu'il faut le définir, il n'aura le message que si le bouton a le focus (donc déjà été cliqué)
Il faut utiliser le OnKeyDown de TMAIN directement, et c'est là que KeyPreview prend tout son sens !

[benn13]

Je te remercie pour la rapidité et l'efficacité de la réponse.