比如VB中的KeyAcsii可以捕获,如:
If KeyAscii < 48 Or KeyAscii > 57 Then
KeyAscii = 0
End If
If KeyAscii < 48 Or KeyAscii > 57 Then
KeyAscii = 0
End If
解决方案 »
- 安装delphi2009时出现invalid serial number错误
- 如何将文件夹中的图片批量导入数据库
- 求开源网站网址,Delphi的,老外的也可
- 想定义一个不用赋record值的结构,如何写呢?
- 如何在Delphi5.0中 调用Sybase存储过程 高手赐教!100分
- 我用ado+access编的软件怎么样转成sql版(C/S)?
- 关于TClass的问题, 如何用一个字符串类型的ClassName, 来创建一个类的实例
- 如何获得当前所有窗口的标题栏文字和句柄
- 盼诸位帮忙!!托普对软件工程师待遇如何?用人机制怎么样?是不是有项目才招人,项目结束就走人?
- 各位大虾,问你们一个非专业的问题,找女朋友学历很重要么?好意见都加分。
- 那位大侠有IC卡读写的源码 急等
- delphi可否自定义整形的长度?
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key < ....