我想得到键盘的ASCII表,但手上没有这些资料,请问哪位有?
if key=13 then showmessage('Hi');
enter = 13,
<- = 37
-> = 40
.......
if key=13 then showmessage('Hi');
enter = 13,
<- = 37
-> = 40
.......
解决方案 »
- 问一个关于关于窗体释放的问题
- 自定义EAN13条形码 0701240000026,在扫描出来该条形码 为什么最前的零却没有了?
- 兩個文件夾(A,B)比較,兩個文件夾中有很多文件,我想這樣:如果A中有文件aa,B中沒有就把aa復制到B中,請問怎樣處理?
- 如何动态的从bdgrid中获取字段民
- SQL SERVER用Backup命令备份时怎么获得备份进度
- label怎样实现随里面的内容而自动换行?
- 用DbExpress连接Sql Server数据库不能获取表名,连接MySql倒是可以?请大侠指点
- 如何指定通用对话框的位置(列如:Topendialog,Left:=100,top:=100)
- 怎样设置从adoconnection中找到MSSQLServer的数据库?
- 网管计费,使用那种计费算法更优?
- DLL
- 在 ShellListView 上按 BACK 键会不受 ROOT 的限制????
这个就是你要找的东西 。
procedure TForm1.Edit11KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
Label1.Caption := inttostr(key) ;
end;