Utilizamos cookies propias y de terceros. [Más información sobre las cookies].
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Temas
· Top 10
· Trucos
· Tutoriales
· Wiki
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

Visita nuestro nuevo sitio web con programas y contenidos actualizados: Proyecto A