Ver Mensaje Individual
  #2  
Antiguo 15-03-2005
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - Espańa
Posts: 18.289
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Pon la propiedad KeyPreview del Form a True.
Programa el evento OnKeyDown del Form y ahí captura las taclas que necesites.

Código Delphi [-]
 procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
 begin
 
   if (key = VK_CAPITAL) then begin
     MessageDlg('Tecla MAYUSCULAS', mtWarning, [mbOK], 0);
   end
   else if (key = VK_NUMLOCK) then begin
     MessageDlg('Tecla BLOQ NUM', mtWarning, [mbOK], 0);
   end
   else if (key = VK_F1) then begin
     MessageDlg('Tecla F1', mtWarning, [mbOK], 0);
   end
   else begin
     MessageDlg('KeyDown (otra):  ' + IntToStr(key), mtWarning, [mbOK], 0);
   end;
 end;

Tú mismo puedes ampliarlo...
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita