Discussion :

[Sombila]

Bonjours;
Je voulais développer un application qui en pressant les touches Fonction (F1->f12) exécute quelque instruction ;
J’ai donc voulu intercepter le code ASCII des touches fonction du clavier (F1->F12) en utilisant la procédure Keypress
Ord (Key) ;
Malheureusement le var Key ne retourne aucune valeur !
Y aurait il d’autre moyen de capturer ces touches Fonction ?
Merci de votre aide !

[sjrd]

Il faut utiliser OnKeyDown ici, avec les constantes VK_Fx de je ne sais plus quelle unité (Windows peut-être).

[HASSIOMAR]

[b]Il faut D'abord mettre Keypreview de la forme a true, puis programmer l'evenement OnKeyDown . Exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure TForm31.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  IF KEY = VK_F1 THEN  Button1Click(SeLF);
  IF KEY = VK_F2 THEN  Button2Click(SeLF);
  IF KEY = VK_F4 THEN  Button4Click(SeLF);
  IF KEY = VK_F10 THEN Button5Click(SeLF);
  //
  IF KEY = VK_F5 THEN Button3Click(SeLF);
  //
  If Shift=[ssCtrl] Then
    if Key=Ord('G') THEN DBGRID1.SetFocus;
end;

Pour la touche escape programmer evenement OnKeyPress . Exemple :

Code :

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

1
2
3
4
5
 
procedure TForm31.FormKeyPress(Sender: TObject; var Key: Char);
begin
  If (Key=Char(VK_ESCAPE)) Then CLOSE;
end;

[Eric Boisvert]

Personellement, j'aime bien utiliser l'évènement Application.OnShurtCut...
tu peux prendre en contre les touches CTRL et SHIFT...c'est très simple...ca peu ressembler à ca...

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
22
23
24
25
26
27
28
29
30
 
//==============================================================================
//== Creation de shortcut globalement dans une application.
//== Si la touche est traitée, Mettre Handled:=TRUE;
//==============================================================================
procedure TForm1.AppOnShortCut(var Msg: TWMKey; var Handled: Boolean);
begin
    //Quand Shift ou Control sont appuyés...GetAsyncKeyState retourne <>0
    if ( ( GetAsyncKeyState(VK_SHIFT)=0) and ( GetAsyncKeyState(VK_CONTROL)=0)) then
    begin
        //ShowMessage(intToStr(GetKeyState(VK_CONTROL)));
        case msg.CharCode of
         VK_F1:begin
                ShowMessage('Touche F1') ;
                Handled := TRUE;
               end;
         {comme ca jusqu'à F12}
 
         VK_F12:begin
                ShowMessage('Touche F12') ;
                Handled := TRUE;
               end;
        end;
    end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
    application.OnShortCut:=AppOnShortCut;
end;