key=32是哪个键,谢谢,100分派送 RT 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);begin if key = #32 then showmessage('It is U!');end;呵呵,证明是空格键 以前写了个键盘键值识别器,你要是有用就去拿。http://www.csdn.net/cnshare/soft/15/15682.shtm 按住 Alt建,键入 ASCII码,即可在文本筐内输入 字符 Þé <--------用这种方法打出来的 procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);begin showmessage(inttostr(ord(key)))end;然后在form1上按空格键你就知道了! delphi 7 imagelist+toolbar 做工具栏插入的图标变小(不如原图大) 数据集操作的问题 怎样在 UPDATE语言中改变Blob字段的数据? Delphi的HTTP事件代码有错,大虾进来看。 遍历控件的问题. delphi中标题栏颜色渐变 怎样更改文件的时间戳? 创建时间,修改时间,访问时间--(文件/目录) 帮我调试代码!很简单的!!!怎么不行呢??? 何为内存泄漏? 关于记录文件 动态生成的控件如何消毁!?? 100分求针对256色的直方图均衡增强算法
begin
if key = #32 then
showmessage('It is U!');
end;呵呵,证明是空格键
Shift: TShiftState);
begin
showmessage(inttostr(ord(key)))
end;然后在form1上按空格键你就知道了!