YO YA LO PROGRAME.. ESTE ES MI CODIGO
Código Delphi
[-]procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case Key of
VK_NUMPAD0 : VISOR.Caption:= '0'; VK_NUMPAD1 : VISOR.Caption:= '1';
VK_NUMPAD2 : VISOR.Caption:= '2';
VK_NUMPAD3 : VISOR.Caption:= '3';
VK_NUMPAD4 : VISOR.Caption:= '4';
VK_NUMPAD5 : VISOR.Caption:= '5';
VK_NUMPAD6 : VISOR.Caption:= '6';
VK_NUMPAD7 : VISOR.Caption:= '7';
VK_NUMPAD8 : VISOR.Caption:= '8';
VK_NUMPAD9 : VISOR.CAPTION:= '9'; end;
end;
PERO N FUNCIONA NO HAC NADA