Utilizamos cookies propias y de terceros. Al navegar entendemos que aceptas el uso de cookies. +Info.
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Temas
· Top 10
· Trucos
· Tutoriales
· Usuario
· Wiki

Nick


Contraseña


Nuevo usuario


English
Detectar si la tecla Shift está pulsada - Delphi
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

Este sitio web NO CONTIENE malware, todos los programas con código fuente aquí. Autor: Alonso Javier Pérez Díaz Google+ Síguenos en Google+