Discussion :

[greg778]

Hello,

Sur ma fenêtre principale j'ai un MainMenu dans lequel je place un bouton avec la touche de raccourci F9.

Tout va bien lorsque je reste dans la fenêtre principale, mais lorsque j'ouvre une fenêtre secondaire, je n'ai bien sûr plus accès à la fonction placée derrière le raccourci F9...

Y-a-t-il moyen d'appliquer le raccourci pour tout le programme ?? sans devoir mettre un MainMenu ou un PopupMenu dans chaque Form et de redéclarer le raccourci...

merci d'avance,
greg

[cyril]

Bonjour,

Tu mets la propriété KeyPreview de ta form principal à True.
Tu places ton code dans l'evenement OnKeyPress.

Code :

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

1
2
3
4
If Ord(Key) = VK_F9 then
begin
//ton Traitement
end;

A+
Cyril

[greg778]

merci nickel...

[greg778]

j'ai répondu un peu vite, je ne sais pas pourquoi mais ça n'a plus l'air de fonctionner???

j'ai encore dans mon MainMenu de ma Form principale le raccourci F9 que je laisse, et c'est la fonction sur ce bouton qui est privilégiée lorsque j'appuie sur F9 dans ma fenêtre principale...

[greg778]

cyril,
pour info les touches F1... ne sont accessibles avec le OnKeyPres...

[Pedro]

cyril,
pour info les touches F1... ne sont accessibles avec le OnKeyPres...

Effectivement par contre, elles le sont dans OnKeyDown et OnKeyUp

Code :

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

1
2
3
4
5
 
If Key = VK_F9 then //Directement
begin 
//ton Traitement 
end;

[greg778]

oui je sais, mais ça n'a pas l'air de fonctionner avec la fonction KeyPreview...

[Pedro]

Ca devrait marcher pourtant...

mais ça n'a pas l'air de fonctionner avec la fonction KeyPreview...

KeyPreview n'est pas une fonction mais une propriété de TForm... Si tu veux que la Form intercepte tous les évènements de touches (donc, dans ton cas aussi), il faut mettre cette propriété à true.

[greg778]

de plus lorsque j'ouvre une forme secondaire, je mets le focus dans un Edit pour lequel je controle ce qui est tapé... et le keydown sur la form secondaire n'agit apparemment pas!!?!

[Pedro]

Tu as bien mis KeyPreview à true à cette Form aussi?

[greg778]

j'ai ça sur ma form principale :

Code :

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

1
2
3
4
5
6
7
8
procedure TProjetVprintPersoft.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 If Key = VK_F11 then //Directement
  begin
   Showmessage('test');
  end;
end;

et j'ai mis la fonction Keypreview à true pour ma form principale et ma form secondaire...

[edam]

essaye dans shurtkey de la forme principal

[greg778]

shurtkey??
pas shortkey??

mais je ne vois pas de quoi tu parles?? il n'y a pas de propriété Shortkey pour une Form...?

[edam]

l'evenement onchurtkey de la form

[greg778]

j'ai onShortCut mais pas onChurtKey...

[edam]

[Soulama]

si jai bien comprit ta 2 Forme, et l'une est modal, alor ya moyen de faire:
Dans Form2 faut declarer Form1 dans les uses et faire:
Form1.TonMenu.TonBoutton.click

[TicTacToe]

mais question,

KeyPreview n'est pas fait plutot pour intercepter les touches et les rendre à l'évenement KeyPressed de la form AVANT de les rendre sur le KeyPressed du composant focalisé ?


Je ne crois pas que cela intercepte les touches des autres forms (qui d'ailleurs ont la meme prop. KeyPreview, si elles étaient à True qui aurait le dernier mot ?)

[Pedro]

KeyPreview n'est pas fait plutot pour intercepter les touches et les rendre à l'évenement KeyPressed de la form AVANT de les rendre sur le KeyPressed du composant focalisé ?

Si exactement

Je ne crois pas que cela intercepte les touches des autres forms (qui d'ailleurs ont la meme prop. KeyPreview, si elles étaient à True qui aurait le dernier mot ?)

Oui il faut donc faire un gestionnaire OnKeyDown pour chaque Form Celle qui aurait le denier mot est la TForm active.

[greg778]

Oui il faut donc faire un gestionnaire OnKeyDown pour chaque Form

c'est ce que j'ai fait, j'ai mis ma fonction sur chaque OnKeyDown et ça focntionne...

merci à tous,
greg