Ver Mensaje Individual
  #2  
Antiguo 03-04-2010
Avatar de rgstuamigo
rgstuamigo rgstuamigo is offline
Miembro
 
Registrado: jul 2008
Ubicación: Santa Cruz de la Sierra-Bolivia
Posts: 1.646
Reputación: 17
rgstuamigo Va por buen camino
Arrow

Cita:
Empezado por Master23 Ver Mensaje
Quiero saber cómo usar las teclas f12 etc y las flechas del teclado porque no me sale gracias.agradezco su ayuda de antemano.
Aunque no das muchos datos de cómo quieres capturar dichas teclas, te pongo un ejemplo simple; coloca el siguiente código en el evento OnKeyDown del formulario:
Código Delphi [-]
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
    VK_F12   :ShowMessage('Has presionado la tecla F12');
    VK_UP    :ShowMessage('Has presionado la tecla Flecha Arriba');
    VK_DOWN  :ShowMessage('Has presionado la tecla Flecha Abajo');
    VK_LEFT  :ShowMessage('Has presionado la tecla Flecha Izquierda');
    VK_RIGHT :ShowMessage('Has presionado la tecla Flecha Derecha');
  end;
end;
.
Para que te funcione correctamente(en el caso de tener muchos controles en el formulario) debes poner la propiedad KeyPreview=True del formulario.

Saludos...
__________________
"Pedid, y se os dará; buscad, y hallaréis; llamad, y se os abrirá." Mt.7:7
Responder Con Cita