Lenguaje de programación Borland Delphi
En el evento Click de un botón ponemos el siguiente código:
procedure TForm1.Button1Click(Sender: TObject);
begin
if HiWord(GetKeyState(VK_SHIFT)) <> 0 then
ShowMessage('Shift Pulsado.')
else
ShowMessage('Shift NO Pulsado.');
end;
Publicado el: 2003-09-24