Discussion :

[Shogun]

Comment detecter une combinaison des touches du clavier ?

Par exemple Ctrl + ArrêtDefil ou encore Ctrl + Fin

Merci de votre aide

[lil_jam63]

Tu dois le faire sous OnFormKeyDown, voilà, j'ai essayé et ça marche pour le CTRL+ END mais pas pour l'autre, apparemment c'est pas VK_SCROLL, je te laisse chercher pour celle là

Code :

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

1
2
3
4
5
6
7
 
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if ((GetAsyncKeyState(VK_CONTROL) <> 0)) and (key = VK_END) then showmessage('CTRL + FIN');
  if ((GetAsyncKeyState(VK_CONTROL) <> 0)) and (key = VK_SCROLL) then showmessage('CTRL + ARRETDEFIL');
end;

[Shogun]

Merci

[Nono40]

Regarde aussi ce petit composant :

http://nono40.developpez.com/sources/source0021.html

[lil_jam63]

J'etais justement en train d'en créé un suite à ça mais un peu moins complet que le tiens Nono

[Shogun]

Regarde aussi ce petit composant :

http://nono40.developpez.com/sources/source0021.html

J'arrive pas a l'installer avec Delphi7, comment faire ?

[Shogun]

Ah non ... c bon ...

Le composant s'est mis dans l'onglet Exemples ...

[Shogun]

bon bah j'arrive pas à compiler mon projet ... il me sort :

Fichier non trouvé : DesignEditors.dcu

[Shogun]

Tu dois le faire sous OnFormKeyDown, voilà, j'ai essayé et ça marche pour le CTRL+ END mais pas pour l'autre, apparemment c'est pas VK_SCROLL, je te laisse chercher pour celle là

Code :

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

1
2
3
4
5
6
7
 
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if ((GetAsyncKeyState(VK_CONTROL) <> 0)) and (key = VK_END) then showmessage('CTRL + FIN');
  if ((GetAsyncKeyState(VK_CONTROL) <> 0)) and (key = VK_SCROLL) then showmessage('CTRL + ARRETDEFIL');
end;

Je dois être maudis, mais j'ai fais exactement pareil ... mais il ne me detecte pas le CTR+END

[lil_jam63]

Essaye en rajoutant $8000, chez moi j'en ai pas besoin mais on sait jamais

Code :

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

1
2
 
if ((GetAsyncKeyState(VK_CONTROL) <> 0 and $8000)) and (key = VK_END) then showmessage('CTRL + FIN');

[Shogun]

mon probleme ne vient pas plutot du focus ???

Car a ce moment la le curseur est sur un TComboBox, peut être que ça "absorbe", les evenements du keyDown du form ?

Voici mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure Tnavig.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  showmessage('toto');
  if ((GetAsyncKeyState(VK_CONTROL) <> 0 and $8000)) and (key = VK_END) then
    begin
      quizzsettings.Show;
      showmessage('CTRL + FIN');
    end;
  if ((GetAsyncKeyState(VK_CONTROL) <> 0 and $8000)) and (key = VK_SCROLL) then showmessage('CTRL + ARRETDEFIL');
end;

Il ne m'affiche même pas 'toto' :

[lil_jam63]

C'est normal, tu l'as mis sur le onKeyDown de la form, met sur le onKeyDown du Combobox et c'est bon, ou encore mieux, tu affectes le onKeyDown de ta form a celui du ComboBox, comme ça tu l'auras sur les deux (va dans l'inspecteur d'evenements, clique( une fois) sur le onKeyDown du comboBox et sur la petite fleche et tu choisi le onKeyDown qui t'es proposé.

[Shogun]

Ah ok !

Sinon autre questions qui n'a rien a voir ...

Comment on fait deja pour faire apparaitre une boite de dialogue avec du texte et un bouton OK et le petit triangle rouge comme image ?

Un message d'erreur en gros

[lil_jam63]

Code :

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

1
2
 
MessageBox(0, 'Ton message', 'Titre de la fenêtre', MB_ICONERROR or MB_OK);

[Shogun]

merci