Discussion :

[barucca]

bonjour a tous!!

Je souhaiterais pourvoir lancer du code lorsque je détecte la combinaison CTRL+SHIFT+F4.

J'ai essayer de le faire deja seulement avec CTRL+F4, mais je n'y arrive pas. j'avais mis ce code dans le onKeyDown de ma forme, il y passe mais ne detecte pas ma combinaison... qu'est-ce qui est faux dans ce code?

Code :

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

1
2
3
4
5
 
if (shift = [ssctrl]) and (key = VK_F4) then
begin
    ......
end;

Merci

[evarisnea]

essaie de mettre la propriété KeyPreview de ta form à True
et moi je préfère

Code :

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

if [ssCtrl] in ssShift then ...

propre pour déterminer si un élément appartient à un set.

[barucca]

salut, j'ai deja mon Keypreview a true, je vais essayer avec ta formulation pour le code, merci

bon, ben cette syntaxe ne fonctionne pas chez moi... d'autres idées?

[slimjoe]

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 (ssCtrl in Shift) and (ssShift in Shift) and (Key = VK_F4) then
      Close;
end;

Moi ça fonctionne très bien (Delphi 7, KeyPreview à True).

[EDIT]
Changé ssAlt pout ssShift (je sais pas pourquoi j'ai mis ssAlt pour commencer )

[portu]

Ce code ci avec le keypreview à true marche très bien

Dasn le OnKeyDown de la Fiche

Code :

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

1
2
3
 
if (Shift = [ssCtrl,ssShift])and(Key = VK_F12) then
Caption := 'ok';

ou encore

Code :

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

1
2
3
 
if (ssShift in Shift)and(ssCtrl in Shift)and(Key = VK_F12) then
Caption := 'ok';

[barucca]

effectivement sans les crochets ca marche mieux , enfin, ca compile, mais par contre je ne passe toujours pas dans mon code.... on dirait que le onkeydown ne voit qu'une des 3 touches a la fois.. j'ai raté quoi??

edit: je suis sous delphi 2005

[barucca]

voila mon code

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 TfParametreCFG.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 
  if (ssCtrl in Shift) and (ssShift in Shift) and (Key = VK_F4) then
  begin
    fParametreCFG.Height:=672;
    mRequettes.Enabled:=true;
    bAppRequettes.Enabled:=true;
  end;
 
end;

j'ai un point d'arret sur le if, j'entre bien dans la fonction, mais je ne rentre jamais dans le if...
par contre des fois il passe plusieurs fois dans le formKeyDown...

[slimjoe]

voila mon code

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 TfParametreCFG.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 
  if (ssCtrl in Shift) and (ssShift in Shift) and (Key = VK_F4) then
  begin
    fParametreCFG.Height:=672;
    mRequettes.Enabled:=true;
    bAppRequettes.Enabled:=true;
  end;
 
end;

j'ai un point d'arret sur le if, j'entre bien dans la fonction, mais je ne rentre jamais dans le if...
par contre des fois il passe plusieurs fois dans le formKeyDown...

Si tu mets un point d'arrêt, le code va bloquer lorsque tu va appuyer sur Ctrl, va bloquer ensuite quand tu vas appuyer sur Shift et ensuite bloquer quand tu vas appuyer sur F4. C'est normal qu'il passe plusieurs fois dans le KeyDown puisque tu appuies sur plusieurs touches.

Mets 3 labels sur ta fiche et mets ce code dans le KeyDown:

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
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if ssCtrl in Shift then
      lbl1.Caption := 'CTRL=true'
   else
      lbl1.Caption := 'CTRL=false';
 
   if ssShift in Shift then
      lbl2.Caption := 'SHIFT=true'
   else
      lbl2.Caption := 'SHIFT=false';
 
   lbl3.Caption := IntToStr(Key);
end;

Fais Ctrl+Shift+F4. Qu'est ce qui est affiché dans les labels ?

[barucca]

j'avais essayer aussi sans points d'arret ca ne reagissait pas.. j'ai fais ce que tu m'as dis, j'ai :
CTRL = TRUE, SHIFT=TRUE et 16

[slimjoe]

hum...
F4 c'est supposé être 115 pourtant...

[slimjoe]

16 c'est shift...

Est-ce que t'as vraiment fais F4 ??

[slimjoe]

Et si tu fais seulement F4 ? Sans le Ctrl+Shift ?

[barucca]

oui j'ai tape sur la touche F4.... je comprend rien!!!
bon, je vais continuer de chercher.... merci pour ton aide!

[barucca]

si je fais que F4 ca me met false dans les deux et 115 dans la derniere case..
en fait on dirait qu'il ne tient copmpte que des deux premieres touches que je tape.
normalement en tenant appuyer ctrl et shift, je peux cliquer sur F4 genre 1s plus tard pour declencher, non?

[Jipété]

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (ssCtrl in Shift) and (ssShift in Shift) and (Key = VK_F4) then
  begin
    ShowMessage('test');
  end;
end;

Ce truc fonctionne très bien, que je commence par Ctrl tenu suivi de Shift tenu puis F4, ou par Shift tenu puis Ctrl tenu et F4.
--
jp

[barucca]

ben vi mais ca fonctionne pas chez moi..

[Jipété]

OK, mais comme on ne peut pas faire plus minimaliste, c'est que tu as sûrement chez toi un truc en plus que chez moi ou chez les autres, qui fait que ça ne fonctionne pas. Cherche chez toi.
Essaye Delphi Fichier Nouveau Application, juste le code que je t'ai passé et Form.Keypreview à True et si ça fonctionne pas c'est grave et étrange...
--
jp

[barucca]

ben oui l'application est beaucoup plus complexe.... je viens d'essayer toujours au meme endroit avec seulement ctrl+F4 et ca fonctionne...

[barucca]

bon, j'ai trouvé!!!
en fait Maj+CTRL+F4 etait deja utilise comme raccourci d'un menu, donc le F4 devait etre intercepté par l'autre evenement....

en gros ctrl+shift+F6 fonctionne...

merci pour votre aide!!