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.


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:cool:
!El Conocimiento de los demas te hace mas fuerte, Siempre y cuando demuestre Interes en Aprenderlo!