键盘码

Question

 我注册了热键例A 的键盘码是41 tab 是9我要注册tab上面那个键做为热键 .( ` ~ )到处资料都没有.........................

Answer 1

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  showmessage(inttostr(ord(key)))
end;
`键盘码 96

Answer 2

KeyPress中取的是按键产生的字符，按键值应该在KeyDown事件中取，值是192

Answer 3

126当然不行咯，要96，最原始的值 ，也就是没有按shift情况下，显示的

Answer 4

//楼上兄弟不是说了吗？
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  ShowMessage(inttostr(Key));
end;

Answer 5

是哦，
我那样取得是 ascii的值。
应该在keydown取
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  showmessage(inttostr(key))
end;