Combinaison de touche CTRL + ALT + V

**GuiGui79** · 03/04/2009, 11h19

Bonjour,

Sur une application DELPHI, j'aimerais faire afficher un message lorsque la combinaison de touche CTRL + ALT + V est saisie.

Merci

**rsc** · 03/04/2009, 11h39

Propriété KeyPreview de la fiche à True et dans l'événement OnKeyDown :

Code :

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

1
2
3
4
5
6
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if (Key = Ord ('V'))
  and (Shift = [ssCtrl, ssAlt])
    then ShowMessage ('V')
end;

**ero-sennin** · 03/04/2009, 11h48

Bonjour et bienvenue sur les forums de Developpez.com

,

Tout dépend ce que tu veux faire ...
Si c'est pour rester que dans le cadre de l'application, tu peux utiliser la réponse citée ci-dessus

Sinon, pour faire un peu plus complet si je puis dire, on peut se tourner vers les HotKeys :

Dans la partie private de la Form, il faut ajouter ceci :

Code :

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

1
2
hotkey1: Integer;
procedure WMHotKey(var Msg : TWMHotKey); message WM_HOTKEY;

Ensuite, on implémente la procédure WMHotKey :

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.WMHotKey(var Msg: TWMHotKey);
begin
  if msg.HotKey = hotkey1 then
  begin
    // On définit les action à faire
    ShowMessage("Ctrl + Alt + V pressé");
  end;
end;

Pour terminer, on compléte le OnCreate ainsi que OnDestroy de la form :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.FormCreate(Sender: TObject);
const 
  MOD_ALT = 1;
  MOD_CONTROL = 2; // Touche Control nécessaire
begin
  hotkey1 := GlobalAddAtom('Hotkey1');
  RegisterHotKey(handle, hotkey1, MOD_CONTROL + MOD_ALT,VK_V);
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  UnRegisterHotKey(handle, hotkey1); // Désactive le HotKey
end;

Voilà en gros le principe.
En espérant t'avoir aidé

(PS : Code non testé car je n'ai pas Delphi sous la main)
A+

**GuiGui79** · 03/04/2009, 11h50

Ca marche.

Merci

**Alferox** · 03/06/2009, 10h39

Bonjour à tous,

je suis débutant dans delphi, et lorsque j'utilise le code d'ero-sennin, delphi me donne une erreur sur VK_V "undeclared identifier VK_V"

J'ai regarder l'aide de Delphi mais je ne comprends pas grand chose

Quelqu'un peut-il m'expliquer?

Merci

**Andnotor** · 03/06/2009, 10h48

Remplace VK_V par Ord('V').

**Alferox** · 03/06/2009, 10h59

Arf le boulet j'ai tout essayé sauf ça Ord(numero de touche)

Merci pour ton aide

**Alferox** · 03/06/2009, 22h03

Arf bon j'ai essayé plein de manipe et je n'y arrive pas

quelqu'un peut me dire ce qui cloche?

Merci

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
unit pressed_touch;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    hotkey1: Integer;
    procedure WMHotKey(var Msg : TWMHotKey); message WM_HOTKEY;
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.WMHotKey(var Msg: TWMHotKey);
begin
  if msg.HotKey = hotkey1 then
  begin
    // On définit les action à faire
    ShowMessage('Ctrl + Alt + V pressé');
  end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
const 
  MOD_ALT = 1;
  MOD_CONTROL = 2; // Touche Control nécessaire
 
begin
  hotkey1 := GlobalAddAtom('Hotkey1');
  RegisterHotKey(handle, hotkey1, MOD_CONTROL + MOD_ALT,Ord('v'));
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  UnRegisterHotKey(handle, hotkey1); // Désactive le HotKey
end;
 
end.

**ero-sennin** · 03/06/2009, 22h13

Salut,

C'est v avec une majuscule

Code :

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

RegisterHotKey(handle, hotkey1, MOD_CONTROL + MOD_ALT,Ord('V'));

Au passage, merci à toi Andnotor pour m'avoir corrigé mon code précédent

A+

**Alferox** · 03/06/2009, 22h42

Non mais les gars je sais que je suis un véritable burne sous delphi mais j'ai quand meme essayé la majuscule. Et quand je fais Ctrl + Alt + V rien ne se passe

Help please.... Merci

**ero-sennin** · 03/06/2009, 22h45

Envoyé par Alferox

Non mais les gars je sais que je suis un véritable burne sous delphi mais j'ai quand meme essayé la majuscule. Et quand je fais Ctrl + Alt + V rien ne se passe

Help please.... Merci

Ba heu, chez moi ça fonctionne

J'ai juste fait un nouveau projet, copié coller ce qui m'intéressé puis j'ai lancé l'application et j'ai fait un CTRL+ALT+V et c'est tout ok

J'ai dit V majuscule dans le post précédent, car le v minuscule ne fonctionne pas (Ord ne prenant que les majuscules). Et vu ton code, c'était cette erreur qui m'interpelait!

**Alferox** · 03/06/2009, 23h00

Arf je deviens fou lol, je suis sous Delphi 7 peut etre du à ca

**Alferox** · 04/06/2009, 14h04

Dit moi ero-sennin pourrais-tu me coller ton code intégrale? svp
Car la je ne comprends vraiment pas ce qui cloche

Merci

**ero-sennin** · 04/06/2009, 14h10

Salut,

Envoyé par Alferox

Dit moi ero-sennin pourrais-tu me coller ton code intégrale? svp
Car la je ne comprends vraiment pas ce qui cloche

Merci

Je te ferais un projet ce soir, actuellement je ne peux pas...
Sinon, il y a un autre post: ici

Tu te crées un nouvelle application qui ne contient que le code que j'ai fourni, et ça devrait aller

A+

**Andnotor** · 04/06/2009, 14h15

Es-tu sûr que cette combinaison n'est pas déjà utilisée par un autre processus ?

Ajoute cette ligne après RegisterHotKey pour avoir un éventuel feedback de l'erreur:

Code :

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

ShowMessage(SysErrorMessage(GetLastError));

**Alferox** · 04/06/2009, 21h09

Envoyé par ero-sennin

Salut,

Je te ferais un projet ce soir, actuellement je ne peux pas...
Sinon, il y a un autre post: ici

Tu te crées un nouvelle application qui ne contient que le code que j'ai fourni, et ça devrait aller

A+

C'est ce que j'ai fait, le code que j'ai copié plus haut ne comporte rien de plus et se ne marche pas

Andnotor, j'ai essayé d'ajouter la ligne que tu m'a donné mais je n'ai aucun message d'erreur qui apparait tout semble clean

**Alferox** · 04/06/2009, 21h12

Voila le code complet:

Le dpr:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
program hotkey;
 
uses
  Forms,
  pressed_touch in 'pressed_touch.pas' {Form1};
 
{$R *.res}
 
begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Le PAS

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
unit pressed_touch;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    hotkey1: Integer;
    procedure WMHotKey(var Msg : TWMHotKey); message WM_HOTKEY;
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.WMHotKey(var Msg: TWMHotKey);
begin
  if msg.HotKey = hotkey1 then
  begin
    // On définit les action à faire
    ShowMessage('Ctrl + Alt + V pressé');
  end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
const 
  MOD_ALT = 1;
  MOD_CONTROL = 2; // Touche Control nécessaire
 
begin
  hotkey1 := GlobalAddAtom('Hotkey1');
  RegisterHotKey(handle, hotkey1, MOD_CONTROL + MOD_ALT,Ord('V'));
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  UnRegisterHotKey(handle, hotkey1); // Désactive le HotKey
end;
 
end.

Si ca marche chez vous la je me tire une balle lol

**ero-sennin** · 04/06/2009, 21h41

Salut,

Chez moi, ça fonctionne

Mais dit moi, pour créer les OnCreate et OnDestroy, tu as bien fait un double clic sur l'événement attendu dans l'inspecteur d'objets, onglet événement ?
Car là, en effet ça fonctionne pas