procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9',#8]) then
begin
key:=#0;
exit
end;
end;
begin
if not (key in ['0'..'9',#8]) then
begin
key:=#0;
exit
end;
end;
解决方案 »
- 请教:DLL WIZARD与RESOURCE DLL WIZARD的区别与应用
- 主从表中从表如何根据过滤结果自动调整DBGrid/DBGridEh的列宽,在何处事件或过程中处理?
- 这个问题有点难
- 公安ccic库是oracle吗?我不会添加进数据库,扩展名是.dat
- 关于注册表
- 二进制表示方法
- 请问如何在数据库里表示下列树性结构并在DXDBTREEVIEW里显示出来???
- 这个问题难住我了!!!你遇到过吗?
- 大家好,有谁用过 Microsoft Agent技术 的 请看过来......
- ip3000的wwdbgrid控件无法设置列的picklist,怎么办
- 哪里有Crystal Report 下载?
- 我怎么用Query取不到值了?
在keypress中写
if not (key in ['0'..'9','.','F','U']) then
key:=#0;
这个表达式很象perl里的