Ver Mensaje Individual
  #1  
Antiguo 25-06-2003
quasarin quasarin is offline
Registrado
 
Registrado: jun 2003
Ubicación: Valencia
Posts: 3
Reputación: 0
quasarin Va por buen camino
Angry Detectar Ctrl+SpaceBar

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;

Responder Con Cita