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]

Peut-être en "surclassant" (hackant) le onKeyPress des composants visuels

Merci Sergio. Je pense que je vais me lancer dans cette direction dès que j'ai un moment.

Il suffit de traiter WM_KEYDOWN dans TApplicationEvents.OnMessage.

Peut-être mieux ... Je vais creuser . Merci Andnotor.

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

Malheureusement non, la demande est sur les flèches du clavier .

[Andnotor]

OnKeyPress est l'événement correspondant au message WM_CHAR. Les touches de direction ne génèrent pas ce message.

[cestpasmoinonplus]

Ah ben ouai merci. De toute façon je vais commencer par ta solution. Re-merci Andnotor

[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 .

[Andnotor]

Screen.ActiveControl

[pprem]

La fiche a un FocusControl qui indique quel composant est actuellement sélectionné.

[cestpasmoinonplus]

Rrrâââhhh ! Merci mes amis. Je n'y croyais même pas.
Ca devrait le faire.