Manejo de teclas
Quisiera saber si existe alguna función que permita manejar el simular el presionado de una tecla o combinación de ellas, ¿lo mismo que hace el SENDKEYS en visual basic?
1 respuesta
Respuesta de gaunmanuel
1
Bueno mira no se como funciona Visual Basic... pero aquí te envío un pequeño ejemplo de como detectar la pulsación de una tecla, en este caso la tecla shift:
procedure TForm1.Button1Click(Sender: TObject);
begin
{Chequeamos si la tecla shift está pulsada}
{Check if Shift key is down}
if HiWord(GetKeyState(VK_SHIFT)) <> 0 then
ShowMessage('Shift Pulsado/Shift pressed');
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
{Chequeamos si la tecla shift está pulsada}
{Check if Shift key is down}
if HiWord(GetKeyState(VK_SHIFT)) <> 0 then
ShowMessage('Shift Pulsado/Shift pressed');
end;
