如题所示。当然,最好不要使用3方控件。如何实现这个功能哪?
解决方案 »
- DELPHI
- delphi操作excel数据遇到有2个问题,请各位大侠帮帮忙!
- 关于停靠的问题
- 谁有使用TreeView的例子,给我粘一段,谢谢!来者有分!
- 重分奖赏:票据连续套打,走纸都向下稍微偏移,最后脱离了格式。。。
- 有使用Delphi的程序员吗?每天都可以在线的!!大家联系一下。
- 问题 checklistbox
- 关于分段取数据的问题,如下:
- 急。UrlDownloadToFile或IdHttp1.Get怎么下载含有中文url的文件??
- RichEdit插入较多GIF动画后的闪烁问题
- 多用户操作ACCESS文件的问题?
- 请问那种报表控件可以方便提供一个俭约的设计器给 最终用户 自定义报表设计?
begin
if not (key in ['0', '1', '2', '3', '4', '5', '6', '7', '8', '9', #8, #13]) then
key := char(0); //key:=char(' ');//#8是回退键,#13是回车键
if key = #13 then
begin
selectnext(activecontrol, true, true);//跳转到下一个控件
end;
end;
if Not (Key in ['0'..'9','.',#13,Char(vk_delete),Char(vk_back)]) then
Key:=#0;
if (Key='.') and (Pos('.',Edit.Text)>0) then key:=#0;
key :=#0;
-------------------
不好用,输入很不方便的呀!
If not ( key in ['0'..'9','.',#8,#13) then key :=#0;
书上都有啊.仔细看、看。
什么书?