Discussion :

[bubulemaster]

Bonjour,

je souhaite intercepter toutes les touches claviers qui sont appuyées lorsque le Control a le focus.
Le problème c'est que le touche de direction font passer à l'autre control.

Voilà ce que j'ai essayé :

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
 
      procedure WMChar(var Msg: TWMChar); message WM_CHAR;
      procedure WMKeyDown(var Msg: TWMKeyDown); message WM_KEYDOWN;
      procedure SubClassWndProc(var Message: TMessage);
 
procedure TIE7Edit.SubClassWndProc(var Message: TMessage);
begin
    if Message.Msg = WM_KEYDOWN
    then
        WMKeyDown(TWMKeyDown(Message))
    else
        WndProc(Message);
 
    Self.
end;
 
procedure TIE7Edit.WMKeyDown(var Msg: TWMKeyDown);
var Shift : Boolean ;
begin
    Shift := getkeyState(VK_SHIFT) <> 0 ;
 
    if Msg.CharCode = VK_LEFT
    then begin
        if not Shift
        then begin
            CursorPos := CursorPos - 1 ;
        end
        else begin
        end ;
    end ;
   // VK_RIGHT
end ;
 
procedure TIE7Edit.WMChar(var Msg: TWMChar);
begin
    {
    Msg: Cardinal;
    CharCode: Word;
    Unused: Word;
    KeyData: Longint;
    Result: Longint;
    }
    FText := Char(Msg.CharCode) ;
//    Msg.KeyData
end ;

Sans succes.

Il me reste comme solution d'utiliser le gestionnaire OnKeyDown mais pour les flèche droite/gauche ça passe au control suivant.

[kevinou55]

pour ne pas que ta touche soit pise en compte, tu fait

Code :

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

1
2
 
key:=#0

lorsque ta touche est pressée

[bubulemaster]

Le problème c'est que les fonctions ne sont même pas appelée dans le cas des touches de direction.
Peut-être faut-il surcharger WndProc (si elle existe)

[Sub0]

Déjà, sache que pour pouvoir détecter des combinaisons de touche, il faut enregistrer l'état de chaque touche dans un boolean :
http://www.developpez.net/forums/sho...315#post719315

La méthode de capture des actions du clavier ultime est l'utilisation d'un hook, j'ai d'ailleurs fait une démo...

Il ya aussi ce sujet : http://www.developpez.net/forums/sho....php?t=15863#4

[bubulemaster]

Un hook clavier me parait excessif, je veux juste intercepter les touches claviers de mon composant pas de windows.

Peut-être qu'il faut que je dérive d'un TControl et pas d'un TWinControl mais ça va m'obliger à ré-écrire une bonne partie du code.

Je pensais qu'en interceptant WM_KEYDOWN on inteceptait avant le composant.

TTreeView dérive d'un TWinControl et intercepte les flèches de direction donc ça doit être possible plus simplement.

EDIT : J'ai peut-être trouvé un élément de réponse. Utiliser TCustomEdit comme classe de base. Mais, la question reste posée.

[kevinou55]

il faut mettre

Code :

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

1
2
3
 
if key=VK_LEFT
     then key:=#0;

dans le onKeyDown

[bubulemaster]

il faut mettre

Code :

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

1
2
3
 
if key=VK_LEFT
     then key:=#0;

dans le onKeyDown

Non, désolé, onKeyDown n'est pas appelé dans le cas des touches de direction.

[kevinou55]

as-tu mis la propriété keyPreview de ta Form à True ???

[bubulemaster]

Ah bah non, c'est une bonne idée ça. Mais alors comment font les TEdit pour recevoir avant la form ?

[kevinou55]

alors la il ne faut peut-etre pas trop m'en demander
mais je pense que comme tu va gérer le onkeyDown d'un composant, c'est lui qui va gérer la pression des touches en premier... à vérifier

cela fonctionne au moins maintenant ???

[bubulemaster]

Et si je dérive d'un TCustomControl, le problème ne serait-il pas résolu ?

Quelle est la différence entre TWinControl et TCustomControl ?

[Aka Guymelef]

Pas beaucoup de différences à priori puisque TCustomControl hérite de TWinControl. La seule chose que fournit TCustomControl c'est le canvas ainsi que la méthode Paint pour tout les composants visuels. C'est pourquoi il est conseillé de partir de cette classe pour tout nouveau contrôle fenêtré.

[bubulemaster]

Effectivement, ça fait pareil.

si je prend le code source d'EasyListview (un ListView ammélioré et partant de rien)
???????
|
TCommonCanvasControl
|
TCustomEasyListview
|
TEasyListview

SynEdit lui dérive d'un TCustomControl.

EDIT : J'ai trouvé !!!!
procedure KeyUp(var Key: Word; Shift: TShiftState); override;
procedure KeyDown(var Key: Word; Shift: TShiftState); override;
procedure KeyPress(var Key: Char); override;

il faut surcharger

EDIT2 : Je me suite embalé, ça ne fonctionne pas !

[bubulemaster]

J'ai trouvé !

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 WMGetDlgCode(var Msg: TWMGetDlgCode); message WM_GETDLGCODE;
 
procedure TEssai.WMGetDlgCode(var Msg: TWMGetDlgCode);
begin
  inherited;
 
  Msg.Result := Msg.Result or DLGC_WANTARROWS or DLGC_WANTCHARS;
 
  //if fWantTabs then
    Msg.Result := Msg.Result or DLGC_WANTTAB;
  //if fWantReturns then
    Msg.Result := Msg.Result or DLGC_WANTALLKEYS;
end;

je vais faire un petit tutoriel et je poste ça dans la FAQ