Gestion de la pression d'une touche sur un composant

Version imprimable

24/09/2009, 14h12
darrylsite

Gestion de la pression d'une touche sur un composant

Bonjour,

J'ai crée un composant graphique, et j' aimerais gérer l'appuie des touches du clavier sur le composant. J'ai réussi à gerer les clique de la souris, mais avec le clavier je me bloque. J'ai essaie den surcharger les methodes KeyPressed(), KeyDown() et autres mais en vain. Je me suis dit qu'il falait peut etre passé par les propriétés, mais là j'avoue que je ne sais pas comment m'y prendre.

Alors si vous avez des idées, ...
25/09/2009, 04h23
Dr.Who

regarde du coté des fonction windows GetAsyncKeyState, sinon les evenements systeme WM_, CM_...
25/09/2009, 15h13
darrylsite

Je vais voir ce que ça donne.
Sinon pour les fonction WM_ je crois que c'est pour capturer les mesage windows consernant le clavier. Je desire avoir une solution portable alors les WM_ me semble pas adaptées.
25/09/2009, 15h17
chris37

Salut,
Ajoute dans le use l'unité LMessages

Ensuite tu peux utiliser les évènements suivant en adaptant ton code en fonction de tes besoins.

Citation:

procedure WMEraseBkgnd(var Message: TLMEraseBkgnd); message LM_ERASEBKGND;
procedure WMNotify(var Message: TLMNotify); message LM_NOTIFY;
procedure WMSetFocus(var Message: TLMSetFocus); message LM_SETFOCUS;
procedure WMKillFocus(var Message: TLMKillFocus); message LM_KILLFOCUS;
procedure WMShowWindow(var Message: TLMShowWindow); message LM_SHOWWINDOW;
procedure WMEnter(var Message: TLMEnter); message LM_ENTER;
procedure WMExit(var Message: TLMExit); message LM_EXIT;
procedure WMKeyDown(var Message: TLMKeyDown); message LM_KEYDOWN;
procedure WMSysKeyDown(var Message: TLMKeyDown); message LM_SYSKEYDOWN;
procedure WMKeyUp(var Message: TLMKeyUp); message LM_KEYUP;
procedure WMSysKeyUp(var Message: TLMKeyUp); message LM_SYSKEYUP;
procedure WMChar(var Message: TLMChar); message LM_CHAR;
procedure WMSysChar(var Message: TLMKeyUp); message LM_SYSCHAR;
procedure WMPaint(var Msg: TLMPaint); message LM_PAINT;
procedure WMDestroy(var Message: TLMDestroy); message LM_DESTROY;
procedure WMMove(var Message: TLMMove); message LM_MOVE;
procedure WMSize(var Message: TLMSize); message LM_SIZE;

Bon courage :D

Je viens de trouver la solution. Le probleme venait de Form.ActiveControl.
J'ai trouvé ce post, et il m'a sauver :D
http://forum.lazarus.freepascal.org/...p?topic=7462.0
Merci :ccool:

Voila comment je l'ai mis en marche :

Code:

1
2
3
4
5
6
7
8
9
10
 
TMyDrawingControl = class(TCustomControl)
                       private
 
                       public
                        procedure MouseEnter; override;
                        procedure MouseLeave; override;
                        procedure KeyPress(var Key: char); override;
                        form : TForm;
                       end;

ensuite

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
procedure TMyDrawingControl.MouseEnter;
begin
 form.ActiveControl:=self;
end;
 
procedure TMyDrawingControl.MouseLeave;
begin
 form.ActiveControl:=nil;
end;
 
procedure TMyDrawingControl.KeyPress(var Key: char);
begin
  showMessage(key);
end;