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.