网上看到查看键盘ASC码的方法:
新建一个窗体,设置Keypreview属性为True,然后在OnKeyDown中写代码:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
Showmessage('按键的ASC码是:'+);
end;
不过发现显示不全,如Tab、PrintScreen等显示不出,不知还有没有更好的办法。
网上看到查看键盘ASC码的方法:
新建一个窗体,设置Keypreview属性为True,然后在OnKeyDown中写代码:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
Showmessage('按键的ASC码是:'+);
end;
不过发现显示不全,如Tab、PrintScreen等显示不出,不知还有没有更好的办法。