Ver Mensaje Individual
  #3  
Antiguo 07-10-2008
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.557
Reputación: 25
egostar Va camino a la fama
Cita:
Empezado por dec Ver Mensaje
Hola,

A bote pronto se me ocurre que uses el evento "OnKeyDown", puesto que ahí sí podrás usar las constantes "VK_".
Efectivamente amigo dec, se debe usar ese evento.

Código Delphi [-]
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case key of
    vk_f1 :;
    vk_f2 :;
    vk_f3 :;
    vk_f4 :;
    vk_f5 :;
    vk_f6 :;
    vk_f7 :;
    vk_f8 :;
    vk_f9 :;
    vk_f10 :;
    vk_f11 :;
    vk_f12 :;
  end;
end;

Salud OS
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney
Responder Con Cita