Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   Como interpretar WM_KEYDOWN (https://www.clubdelphi.com/foros/showthread.php?t=64648)

casacham 12-04-2009 23:17:03

Como interpretar WM_KEYDOWN
 
Hola Gente.
Decidi iniciar este hilo porque estoy estudiando sobre el manejo de los mensajes de windows y necesito ayuda sobre como interpretar una parte de este mensaje de windows WM_KEYDOWN . Tengo un codigo que interpreta si una tecla fue pulsada, soltada o si no ha sido liberada y por lo tanto le llamo repetida. Aqui va la porcion de codigo que realiaza dicha tarea


Código Delphi [-]
procedure TForm1.EstadoDeLaTecla(var mensage: TMessage);
var
Accion : string;
Pulsada, Repetida, Soltada: Boolean;
begin
Soltada := ((mensage.lParam shr 31) and 1)=1;
Repetida:=(((mensage.lParam shr 30) and 1)=1) and not Soltada;
Pulsada := NOT Soltada and Not Repetida;
 
if Soltada then Accion:='Soltada ' ; {Released}
if Repetida then Accion:='Repetida'; {repressed}
if Pulsada then Accion:='Pulsada '; {pressed}
 
Memo1.Lines.Insert(0, Accion);
end;





Lei en la ayuda de la API WIN32 que el mensaje - WM_KEYDOWN - que genera windows al pulsar una tecla; si la misma tecla que inicio el mensaje es mantenida presionada no genera nuevos mensajes sino que inicia un contador de repeticion que se encuentra dentro del mismo mensaje. Como sabemos el mensaje tiene la siguiente informacion en su porcion lParam.


repeat count, scan code, extended-key flag, context code, previous key-state flag, transition-state flag


Ya vi como se puede interpretar parte de la informacion que viene en lParam como se ve en el codigo que puse en este hilo

PREGUNTA
Como debo procesar lParam para obtener el numero de veces que fue repetida la tecla? Como interpreto repeat count ?.

A continuacion agrego una porcion del texto de ayuda para orientar a quien lea este hilo y ofrezca su tiempo para ayudarme con esta pregunta


The WM_KEYDOWN message is posted to the window with the keyboard focus when a nonsystem key is pressed. A nonsystem key is a key that is pressed when the ALT key is not pressed.
WM_KEYDOWN
nVirtKey = (int) wParam; // virtual-key code
lKeyData = lParam; // key data

Parameters
nVirtKey
Value of wParam. Specifies the virtual-key code of the nonsystem key.
lKeyData
Value of lParam. Specifies the repeat count, scan code, extended-key flag, context code, previous key-state flag, and transition-state flag, as shown in the following table:
Value Description
0-15 Specifies the repeat count. The value is the number of times the keystroke is repeated as a result of the user holding down the key.
16-23 Specifies the scan code. The value depends on the original equipment manufacturer (OEM).
24 Specifies whether the key is an extended key, such as the right-hand ALT and CTRL keys that appear on an enhanced 101- or 102-key keyboard. The value is 1 if it is an extended key; otherwise, it is 0.
25-28 Reserved; do not use.
29 Specifies the context code. The value is always 0 for a WM_KEYDOWN message.
30 Specifies the previous key state. The value is 1 if the key is down before the message is sent, or it is 0 if the key is up.
31 Specifies the transition state. The value is always 0 for a WM_KEYDOWN message.

Return Values
An application should return zero if it processes this message.
Default Action
If the F10 key is pressed, the DefWindowProc function sets an internal flag. When DefWindowProc receives the WM_KEYUP message, the function checks whether the internal flag is set and, if so, sends a WM_SYSCOMMAND message to the top-level window. The wParam parameter of the message is set to SC_KEYMENU.
Remarks
Because of the autorepeat feature, more than one WM_KEYDOWN message may be posted before a WM_KEYUP message is posted. The previous key state (bit 30) can be used to determine whether the WM_KEYDOWN message indicates the first down transition or a repeated down transition.
For enhanced 101- and 102-key keyboards, extended keys are the right ALT and CTRL keys on the main section of the keyboard; the INS, DEL, HOME, END, PAGE UP, PAGE DOWN and arrow keys in the clusters to the left of the numeric keypad; and the divide (/) and ENTER keys in the numeric keypad. Other keyboards may support the extended-key bit in the lKeyData parameter.

casacham 12-04-2009 23:41:26

Un poco mas de ayuda
 
Aqui agrego un poco mas de ayuda, creo que es util para interpretar mi pregunta


Keystroke Message Flags



Repeat Count
You can check the repeat count to determine whether a keystroke message represents more than one keystroke. The system increments the count when the keyboard generates WM_KEYDOWN or WM_SYSKEYDOWN messages faster than an application can process them. This often occurs when the user holds down a key long enough to start the keyboard's automatic repeat feature. Instead of filling the system message queue with the resulting key-down messages, the system combines the messages into a single key down message and increments the repeat count. Releasing a key cannot start the automatic repeat feature, so the repeat count for WM_KEYUP and WM_SYSKEYUP messages is always set to 1.

cHackAll 13-04-2009 19:39:40

Código Delphi [-]
// LongRec(Message.LParam).Lo
// Message.LParam and $FFFF

casacham 14-04-2009 10:32:00

Solo devuelve 1
 
Hola [cHackAll]

Gracias por responder a mi pregunta y tomarte el tiempo de leer todo lo que escribi. Probe interpretar lo que escribiste, y ademas busque info sobre LongRec ( separates parts of a 4-byte value). Pero esto solo me devuelve el valor de 1 cuando hago lo siguiente:
Código Delphi [-]
   ShowMessage (inttoStr(LongRec(Message.lParam).Lo)+' '+inttoStr(Message.LParam and $FFFF);

Eso responde a como interpretar esa parte del mensaje. Y debo comentar entonces lo que yo creia, pues pensaba que leyendo esa parte del mensaje obtenia directamente el n de veces que fue mandada a la cola de procesos la tecla que fue mantenida presionada. Es decir, si yo mantengo presionada la tecla "a" durante un tiempo veo que en mi TMemo se llena de "aaaaaaaaaaaaaaaaaaaaaaa......aaa" pero no logro saber exactamente cuantas "a" tengo al soltar la tecla leyendo el mensaje, sino que creo que debo hacer un contador para obtener el numero de veces que aparecio "a" en el TMemo.
Este post que me escribiste me sirve para seguir estudiando el tema. Gracias


La franja horaria es GMT +2. Ahora son las 21:45:54.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi