TEdit中限制只能输入"."或数字
来源:互联网 发布:淘宝号登不了怎么办 编辑:程序博客网 时间:2024/05/16 10:33
写在onkeypress事件里面
if not (key in ['0'..'9',#8]) then
begin
if (key='.') and (pos('.',Tedit(sender).Text)=0) then exit;
key:=#0;
Messagebeep(0);
end;
在KeyPress里控制怎么都不完善!
如果Ctrl+C,Ctrl+V怎么办?
如果右键拷贝、粘贴呢?
所以只有在OnChange事件中才能完善控制:
procedure TForm.EditChange(Sender: TObject);
begin
try
StrToFloat((Sender as TEdit).Text);
except
(Sender as TEdit).Text:=Copy((Sender as TEdit).Text,1,
Length((Sender as TEdit).Text)-1);
(Sender as TEdit).SelStart:=Length((Sender as TEdit).Text);
end;
if not (key in ['0'..'9',#8]) then
begin
if (key='.') and (pos('.',Tedit(sender).Text)=0) then exit;
key:=#0;
Messagebeep(0);
end;
在KeyPress里控制怎么都不完善!
如果Ctrl+C,Ctrl+V怎么办?
如果右键拷贝、粘贴呢?
所以只有在OnChange事件中才能完善控制:
procedure TForm.EditChange(Sender: TObject);
begin
try
StrToFloat((Sender as TEdit).Text);
except
(Sender as TEdit).Text:=Copy((Sender as TEdit).Text,1,
Length((Sender as TEdit).Text)-1);
(Sender as TEdit).SelStart:=Length((Sender as TEdit).Text);
end;
- TEdit中限制只能输入"."或数字
- Delphi中限制文本框(TEdit)只能输入数字
- 限制TEdit 内只能输入数字
- 限制TEdit控件只能输入数字,小数点和负号
- Delphi中限制文本框(TEdit)只能输入小数
- TextBox限制只能输入字母或数字
- BCB TEdit组件限制输入数字
- asp.net中前台限制TextBox文本框只能输入数字和小数(或数字和字母)
- 限制TextBox中只能输入数字
- 限制文本框中只能输入数字
- C# 中限制只能输入数字
- 限制文本框中只能输入数字
- 限制文本框中只能输入数字
- 限制只能输入数字
- TEdit只能输入数据
- delphi中Tedit输入金额数字
- 限制输入时候只能是英文或数字
- Swift: UITextfield 只能输入数字或字母,限制长度
- 最大公约数-欧几里
- C/S与B/S
- 小错误导致全盘错啊
- 版本控制 CVS命令使用方法
- J2EE架构师之路
- TEdit中限制只能输入"."或数字
- 使用MFC实现进程内COM组件的步骤
- django 1.3使用static file
- 程序只运行一个实例
- 成员方法的反射
- B/S系统和C/S系统的应用比较分析
- [小说连载]张小庆,在路上(5)-第一个项目
- 我的持续集成包
- jTABLE