Discussion :

[bjl]

Bonjour,

J'aimerais conserver le focus sur un TcustomControl lors des appuis sur les touches Left ou Right (comme dans un Tedit). J'ai essayé de surcharger le WndProc du TcustomControl, mais çà ne fonctionne pas : La form exploite l'évènement auparavant et le Tcustomcontrol perd le focus. Y'a t'il une propriété permetant au Control de recevoir les évènements VK_Left et VK_RIGHT ?

[Pedro]

Salut

tu fais comment pour les intercepter VK_right et VK_Left?

[Invité]

Avec OnKeyUp et OnKeyDown !
Tu récupère la touche enfoncée ou relachée et tu gères à partir de là !
Par contre, il ne faut pas que la propriété KeyPreview de ta Form soit à False, sinon, la form intercepte l'évenement...

J'espère avoir répondu à ta question!

[Pedro]

Mais est-ce que tu veux que ton contrôle intercepte ces évènements quel que soit l'objet en focus?

[bjl]

Bonjour,

Jérome >> Le propriété KeyPreview de la Form est déjà à false.

Pedro >>

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TEssControl.wndProc(Var msg : Tmessage);
Begin
If msg.msg  =  WM_KEYDOWN  then
  Begin
  case msg.WParam of
    VK_LEFT : ...............
    VK_RIGHT : ..................
    End;
  msg.msg := 0;
  End;
 
inherited WndProc(msg);
End;

Je ne veux qu'il intercepte ces évènements que s'il a le focus.

[Pedro]

Mouais
t'as testé si ta condition WM_Keydown était vérifiée?

[bjl]

Oui,

Avec VK_RETURN, et çà fonctionne. Par contre avec les touhes VK_LEFT et VK_RIGHT, le control perd le focus avant de recevoir le message.

En plus, j'ai essayé avec un TcustomEdit (qui descend lui aussi de TwinCOntrol) et çà marche avec VK_LEFT et VK_RETURN. Il doit y avoir une propriété dans le TcustomEdit qui permet d'indiquer à l aform qu'elle doit laisser passer le message

[bjl]

Je crois avoir trouvé le réponse dans le SDK Windows à 'Control Messages'.

Les clefs TAB et arrow ne sont pas traitées comme des clefs standards.
sur action clavier, Un message WM_GETDLGCODE est envoyé au controle
afin de savoir s'il utilise ces clefs.
Selon la réponse, le message WM_KEYDOWN est envoyé.

Ceci n'impacte pas les touches standards

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
16
17
18
19
20
21
22
23
24
 
  Protected
    Procedure WndProc(var msg : TMessage); override;
    Procedure KeyDown(var Key: Word; Shift: TShiftState); override;
 
 
procedure TEssControl.wndProc(Var msg : Tmessage);
Begin
If  msg.msg = WM_GETDLGCODE Then
  begin
  msg.Result :=  DLGC_WANTARROWS; // indique que le controle utilise les clefs Arrow
  Exit; 
  End;
inherited WndProc( msg );
End;
 
Procedure TEssControl.KeyDown(var Key: Word; Shift: TShiftState);
Begin
Inherited KeyDown( Key, shift );
  case Key of
    VK_LEFT : ................
    VK_RIGHT : ................
  End;
End;

Pour les Tabs seuls , msg.Result := DLGC_WANTTAB;

Jérome, Pedro >> merci