Hola.
No no, en el TButton, tendrías que hacer algo como:
Código Delphi
[-]
procedure TForm1.btNumPad0Click(Sender: TObject);
begin
NumTeclado:= VK_NUMPAD0;
end;
Con respecto a la captura de la tecla quizá te convenga poner a
True la propiedad
KeyPreview del Form y usar su evento
OnKeyDown:
Código Delphi
[-]
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case Key of
VK_NUMPAD0: NumTeclado:= VK_NUMPAD0;
VK_NUMPAD1: NumTeclado:= VK_NUMPAD1;
...
...
end;
end;
Saludos.