在edit中有选择的输入
来源:互联网 发布:学c语言转java容易吗 编辑:程序博客网 时间:2024/04/28 06:33
if not(key in['0'..'9',#8]) then
begin
key:=#0;
messagebeep(1);
showmessage('密码只能为数字' )
end;
******************************************
e:= (Sender as TEdit); //需要限制输入的控件可共享这段代码
if not(key in [#48..#57,'.','-',#8]) //可接受的字符
or(key='-')and(e.SelStart>0) //负号只能在串首
or(key='.')and(pos( '.',e.Text)>0)then key:=#0; //只接受一个小数点
***************************************
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9',Chr(VK_BACK),Chr(VK_Delete)]) then
begin
key:=#0;
Messagebeep(0);
end;
end;
- 在edit中有选择的输入
- visual fortran 中EDIT文本框的输入
- 在edit中只能输入汉字和逗号
- 在DELPHI里面控制Edit中只能输入数字
- 如何判断Edit控件中输入的字符为数字!
- Visual Studio 中edit Control的文本输入
- 偶写的第一个控件,一个用选择代替输入的Edit控件
- edit限制输入的问题
- ASP.NET中对表单输入行有选择验证
- ASP.NET中对表单输入行有选择验证
- ASP.NET中对表单输入行有选择验证
- 在Struts2中,我的Action中不管有execute方法,还有edit() list() add()等方法,我如果只想让拦截器拦截edit方法和add方法,请问可以吗?如果可以请告诉我一下怎么
- Delphi中设置Edit只能输入数字
- 在MFC Ribbon中EDIT控件的使用
- 在MFC中,edit无法粘贴、剪切的解决方法。
- 通过派生CEdit类实现在VC的edit控件里输入小数
- (MSSQL)在数据表中设置标志开关,进行触发器的有选择工作
- 在Vs2005 C#中有选择的导出Excel报表(单行)
- 利用自定义事件实现不同窗体间的通讯 -- C#篇
- 和春天有个约会
- 蹦迪--我的黑白玫瑰~!
- 2005.4.16——灌给即将荒芜的5460计应962
- edit中只让输入数字跟相关符号
- 在edit中有选择的输入
- 。作品集。
- 2005年下半年的自考又结束了!
- 俄罗斯方块
- 关于windows编程的一些心得 选择自 forpku 的 Blog
- 使用hibernate 做应用持久层
- Today 4.16
- Song Of The Bandit 真正的乡村音乐
- 一天中的七杯水