Club Delphi  
    FTP   CCD     Enlaces   Buscar   Trucos   Trabajo   Foros

Go Back   Foros Club Delphi > Principal > OOP
Register FAQ Members List Calendar Guía de estilo Search Today's Posts Mark Forums Read


Reply
 
Thread Tools Display Modes
  #1  
Old 12/04/2009
casacham's Avatar
casacham casacham is offline
Miembro
 
Join Date: Apr 2006
Location: Cordoba->Argentina. Arboleas->Almeria->España
Posts: 181
casacham Va por buen camino
Cool 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.
__________________
Partes privadas y Partes Publicas
Reply With Quote
  #2  
Old 12/04/2009
casacham's Avatar
casacham casacham is offline
Miembro
 
Join Date: Apr 2006
Location: Cordoba->Argentina. Arboleas->Almeria->España
Posts: 181
casacham Va por buen camino
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.
__________________
Partes privadas y Partes Publicas
Reply With Quote
  #3  
Old 13/04/2009
cHackAll's Avatar
[cHackAll] cHackAll is offline
Baneado?
 
Join Date: Oct 2006
Posts: 2,159
cHackAll Va por buen camino
Código Delphi [-]
// LongRec(Message.LParam).Lo
// Message.LParam and $FFFF
__________________
RTFM > STFW > Foro > Truco > Post > cHackAll > KeBugCheckEx
Reply With Quote
  #4  
Old 14/04/2009
casacham's Avatar
casacham casacham is offline
Miembro
 
Join Date: Apr 2006
Location: Cordoba->Argentina. Arboleas->Almeria->España
Posts: 181
casacham Va por buen camino
Cool 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
__________________
Partes privadas y Partes Publicas

Last edited by casacham : 14/04/2009 at 09:33. Reason: correccion ortografica
Reply With Quote
Reply


Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
como interpretar un error FGarcia Varios 4 03/01/2008 01:13
Interpretar SQL juanpe Firebird e Interbase 4 11/07/2007 10:07
Mensage WM_KEYDOWN con TWinControl liadsoft OOP 1 17/05/2006 00:17
Interpretar ficheros XSD kes Conexión con bases de datos 0 20/01/2005 12:16
Interpretar mensajes de MS-Dos verm83 Varios 3 07/04/2004 15:41


All times are GMT +2. The time now is 23:42.


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