quasarin
25-06-2003, 02:29:23
Hola!
Tengo el siguiente código en mi proyecto de Delphi:
/****************/
procedure TMainForm.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
if (Msg.Message = WM_KEYDOWN) and (msg.wParam=VK_SPACE) then
begin
//Msg.wParam := ;
keys := Keys + IntToStr(msg.wParam)+'-'+IntToStr(msg.lParam)+'; ';
Handled := False;
end;
.
.
.
/****************/
Como se puede ver, capturo la pulsación de la tecla Espacio, pero lo que pretendo es capturar Ctrl+Espacio, y de momento, lo único que consigo es capturar siempre antes de recibir VK_SPACE, un valor en wParam = 17. Tras esto se disparan dos WM_KEYUP consecutivos, con los valores 17 y VK_SPACE.;
Alguien sabe cuál es el algoritmo a seguir para estar seguro de que se trata de un Ctrl+Espacio?;
Saludos;
:confused:
Tengo el siguiente código en mi proyecto de Delphi:
/****************/
procedure TMainForm.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
if (Msg.Message = WM_KEYDOWN) and (msg.wParam=VK_SPACE) then
begin
//Msg.wParam := ;
keys := Keys + IntToStr(msg.wParam)+'-'+IntToStr(msg.lParam)+'; ';
Handled := False;
end;
.
.
.
/****************/
Como se puede ver, capturo la pulsación de la tecla Espacio, pero lo que pretendo es capturar Ctrl+Espacio, y de momento, lo único que consigo es capturar siempre antes de recibir VK_SPACE, un valor en wParam = 17. Tras esto se disparan dos WM_KEYUP consecutivos, con los valores 17 y VK_SPACE.;
Alguien sabe cuál es el algoritmo a seguir para estar seguro de que se trata de un Ctrl+Espacio?;
Saludos;
:confused: