Discussion :

[KlausGunther]

Bonjour,

Je suis sous W11 avec Delphi 6 Personal Edition.

J'essaie de créer un nouveau contrôle dérivé de TCustomControl.
Je joins un fichier ZIP contenant le projet complet.

J'arrive à le créer et à dessiner mon contrôle (rudimentaire) dans le canvas qui apparaît à l'écran.
J'arrive à capter le click gauche et mousedown ce qui me permet, dans le OnClick, de connaître les coordonnées du click.
Dans on mémo séparé, j'affiche les coordonnées du click lors de l'évènement OnClick, coordonnées mémorisées lors du OnMouseDown.
J'arrive à détecter les touches frappées par OnKeyPress et à identifier un caractère normal, Return (#13) ou Delete (#8).

Mais, je n'arrive pas à détecter les flèches (droite, gauche, haut, bas) qui sont interceptées avant d'arriver dans mon contrôle, au niveau de Form1.
Le curseur se déplace alors dans la Form1 d'un contrôle à l'autre, ou dans le mémo.
J'ai essayé de modifier le ControlStyle de mon TCustomContrôle (ControlStyle := ControlStyle +[csClickEvents,csCaptureMouse,csAcceptsControls],
mais cela n'a aucune influence sur le traitement des flèches.
J'ai même essayé de modifier KeyPreview de la Form1 (valeurs True et False), mais le comportement reste inchangé.
Je peux détecter dans OnKeyDown même Shift, Ctrl, Alt, mais pas les flèches. C'est frustrant !

Comment est-ce que je peux obtenir le passage des flèches dans mon TCustomControl de sorte que le OnKeyDown les détecte ?
Voici une capture montrant mon programme après un clic , la frappe de "a", puis un autre clic à un endroit différent, puis la frappe de la touche Return:

[Invité]

Bonjour ,

Je pense qu'il faut intercepter le message WM_GETDLGCODE jette un coup d’œil sur le lien
Les clés de direction la tab et l'entrée sont interceptés par la fiche pour changer le focus vers un autre contrôle ou la validation des données
https://www.developpez.net/forums/d2.../#post12098836

[KlausGunther]

Bonjour ,

Je pense qu'il faut intercepter le message WM_GETDLGCODE jette un coup d’œil sur le lien
Les clés de direction la tab et l'entrée sont interceptés par la fiche pour changer le focus vers un autre contrôle ou la validation des données
https://www.developpez.net/forums/d2.../#post12098836

Merci ! Je vais essayer cela.

[XeGregory]

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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
unit TCustomControl_Unit;
 
interface
 
uses
  Windows, Messages, SysUtils, StrUtils, Classes, Types, Controls, Graphics,
  Dialogs;
 
type
  TMyControl = class(TCustomControl)
  private
    fLastClick: TPoint;
    fKey: Char;
    procedure WMGetDlgCode(var Msg: TWMGetDlgCode); message WM_GETDLGCODE;
  protected
    procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
      X, Y: Integer); override;
    procedure KeyDown(var Key: Word; Shift: TShiftState); override;
    procedure KeyPress(var Key: Char); override;
  published
    constructor Create(aOwner: TComponent); override;
    destructor Destroy; override;
    procedure Paint; override;
    property OnClick;
    property OnMouseDown;
    property OnKeyPress;
    property LastClick: TPoint read fLastClick write fLastClick;
    property Key: Char read fKey write fKey;
  end;
 
implementation
 
constructor TMyControl.Create(aOwner: TComponent);
begin
  inherited Create(aOwner);
  if aOwner is TWinControl then
    Parent := TWinControl(aOwner);
  Width := 300;
  Height := 200;
  TabStop := True;
  ControlStyle := ControlStyle + [csClickEvents, csCaptureMouse,
    csAcceptsControls];
  Color := clWindow;
  Invalidate;
end;
 
destructor TMyControl.Destroy;
begin
  inherited Destroy;
end;
 
procedure TMyControl.MouseDown(Button: TMouseButton; Shift: TShiftState;
  X, Y: Integer);
begin
  inherited MouseDown(Button, Shift, X, Y);
  if Button = mbLeft then
  begin
    fLastClick := Point(X, Y);
 
    if Assigned(OnMouseDown) then
      OnMouseDown(Self, Button, Shift, X, Y);
 
    if Assigned(OnClick) then
      OnClick(Self);
  end;
end;
 
procedure TMyControl.WMGetDlgCode(var Msg: TWMGetDlgCode);
begin
  inherited;
  Msg.Result := Msg.Result or DLGC_WANTARROWS or DLGC_WANTCHARS;
end;
 
procedure TMyControl.KeyDown(var Key: Word; Shift: TShiftState);
begin
  inherited KeyDown(Key, Shift);
  ShowMessage('KeyDown=' + IntToStr(Key));
  case Key of
    VK_LEFT:
      begin
        //
      end;
    VK_RIGHT:
      begin
        //
      end;
    VK_UP:
      begin
        //
      end;
    VK_DOWN:
      begin
        //
      end;
  end;
end;
 
procedure TMyControl.KeyPress(var Key: Char);
begin
  inherited KeyPress(Key);
  fKey := Key;
  if Assigned(OnKeyPress) then
    OnKeyPress(Self, Key);
end;
 
procedure TMyControl.Paint;
begin
  Canvas.Brush.Color := clRed;
  Canvas.Pen.Color := clBlack;
  Canvas.Pen.Width := 3;
  Canvas.FillRect(Canvas.ClipRect);
  Canvas.Rectangle(Canvas.ClipRect);
end;
 
end.

[KlausGunther]

Merci à vous deux !

Oui, ça marche. Je récupère les 4 flèches et je peux les distinguer. C'est parfait. Le TAB n'est pas capté par cette astuce, mais je n'en ai pas besoin.

Pour moi, le problème est résolu. Merci !

[Invité]

Pour capturer le TAB ajouter DLGC_WANTTAB dans le résultat de de message WM_GETDLGCODE, c'est à toi de définir les touches dont tu as besoin selon le type du contrôlé que tu envisages créer par exemple un edit simple ligne n'a pas besoin de Tab ni les touches de direction