Discussion :

[cestpasmoinonplus]

Bonjour à tous.tes

Ce matin je me suis dit que j'aurai bien besoin d'un événement, du genre OnKeyPress, déclenché dans toute l'appli, et donc pas seulement lié à un composant.
J'ai bien pensé à un shortCut dans un menu caché, mais je voudrais que cet événement soit déclenché quand on appuie sur les flèches du clavier. Il n'y a pas de shortCut pour les flèches .
J'ai une interface avec énormément de composants, et je ne me vois pas lier cet événement à chacun d'entre eux .
Quelqu'un connaîtrait-il une astuce ?

Merci d'avance.

[pprem]

Bonjour

Es-tu sur une application FMX ou VCL ?

[cestpasmoinonplus]

Bonjour pprem,
VCL.

[SergioMaster]

que ce soit VCL ou FMX je pense que cela ne changera rien. Peut-être en "surclassant" (hackant) le onKeyPress des composants visuels
quelque chose comme
Hypothèse 1

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
type 
TWinControl :  class(VCL.Controls.TwinControl)
procedure KeyPress(var key : char); 
end; 
 
procedure TWinControl.KeyPress(var key : char);
begin
  // traitement flèche ---------------------------------
 
  // ---------------------------------------------------
  if Assigned(FOnKeyPress) then FOnKeyPress(Self, Key);
end;

Quoique, keypress est réducteur puisque un seul char, il vaudrait mieux partir sur le procedure TWinControl.KeyDown(var Key: Word; Shift: TShiftState);
Hypothèse 2 :
mettre KeyPreview à true pour la forme et surchargé Form.DoKeyDown


@pprem pas sympa de pas vouloir teaser, je vais finir par devenir très curieux !

[Andnotor]

Il suffit de traiter WM_KEYDOWN dans TApplicationEvents.OnMessage.

[viper1094]

Je dis ça comme ça même si je n'y comprend rien à ce qu'elles sont, mais si je ne m'abuse, les hotkeys peuvent convenir à ta situation non ? ( Me taper pas si je dis n'importe quoi )

[cestpasmoinonplus]

Il suffit de traiter WM_KEYDOWN dans TApplicationEvents.OnMessage.

Ok, ça marche nickel. Merci Andnotor.
Mais mon problème est qu'il est en "compétition" avec les TSpinEdit de mon interface
Du coup, quand un SpinEdit a le focus, l'utilisateur se sert des flèches pour en modifier la valeur, et l'interface réagît également à l'évènement.
Je pourrais fouiller partout sans être sûr que cela existe, mais si quelqu'un pouvait me dire comment savoir quel objet d'une interface a le focus sans fouiller toute l'interface à sa recherche, il serait une bien bonne personne .