简单问题，如何在edit中判断小键盘的按键？在线给分。

Question

这里有一个edit，怎么知道按的是小键盘的哪个按键？
谢谢。

Answer 1

VK_NUMPAD0 = 96;
VK_NUMPAD1 = 97;
VK_NUMPAD2 = 98;
VK_NUMPAD3 = 99;
VK_NUMPAD4 = 100;
VK_NUMPAD5 = 101;
VK_NUMPAD6 = 102;
VK_NUMPAD7 = 103;
VK_NUMPAD8 = 104; 
VK_NUMPAD9 = 105;
呵呵，不管，已经回答了，分照接

Answer 2

算了，改问这个问题吧。
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key = VK_NUMPAD2 then    edit1.Text := 's';
end;按了小键盘2后，edit1中出现的是2s，怎么只出现s ?

Answer 3

你edit1.Text := 's'; 他当然显示S   edit1.Text := '2s';不就行了 ~_~

Answer 4

你没弄明白，我的意思是怎么不显示2？//按了小键盘2后，edit1中出现的是2s，怎么才能只出现s ?

Answer 5

if key = 97 then edit.text := '1';
if key = 98 then edit.text := '2';
......

Answer 6

我确定在KEYUP里面写一定可以,你试一下吧我试多次没有问题的!
如代码:   if key=vk_numpad2 then
      begin
           edit1.text:='';
           edit1.text:='ttt';
        end;

Answer 7

现在没delphi，验证后给分哦。