Capturar Teclas Del Teclado.

[utephi_14]

Saludos a todos.

Tengo un Formulario, Con un Statusbar y deceo que cuando yo presione la tecla
Num (Teclado Numerico) me aparesca en el status como activada.. Asi tambien la (Bloc Mayus) [Caps]...... y lo contrario.

Tambien deceo que cuando yo presione F1 me llame la Ayuda Electronica (Workshop)........ y F10 la calc. ¿Como lo puedo Hacer?-----



Atte.
Principiante...
Utephi_14

[Neftali [Germán.Estévez]]

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...

[utephi_14]

Gracias Neftali, me funciona a la perfección..




Utephi_14
!El Conocimiento de los demas te hace mas fuerte, Siempre y cuando demuestre Interes en Aprenderlo!