TEdit只能输入数据
2005-08-23 14:44
141 查看
EdPayKeyPress(Sender: TObject; var Key: Char);
begin
if ord(Key) in [46, 48..57] then
begin
if ord(Key) = 46 then
begin
if EdPay.Text = '' then
begin
Key := #0;
end else
if Pos('.', EdPay.Text) > 0 then
Key := #0;
end;
end else
Key := #0;
end;
begin
if ord(Key) in [46, 48..57] then
begin
if ord(Key) = 46 then
begin
if EdPay.Text = '' then
begin
Key := #0;
end else
if Pos('.', EdPay.Text) > 0 then
Key := #0;
end;
end else
Key := #0;
end;
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- 一个只能输入数值型数据的文本框类实现（C#）
- Delphi中限制文本框(TEdit)只能输入数字
- jquery 数据校验，input只能输入浮点数
- 如何限制数据窗口的某列只能输入数字及符号 -
- 只能输入数据或英文 ，很笨的方法
- 众数问题（为什么只能输入一组数据，不能输入m组数据）
- 数组字符串系列之：判断一个输入字符串中的每个字符唯一，只能使用基本的数据结构
- EditText自定义输入数据格式，比如只能是数字和字母（身份证最后一位X）
- TEdit中限制只能输入"."或数字
- js验证，只能输入英文和数据
- 限制TEdit控件只能输入数字,小数点和负号
- \t\t只能输入数据-JavaScript
- *Delphi控件之---UpDown以及其与TEdit的配合使用（比如限制TEdit只能输入数字，还有Object Inspector之组件属性的介绍）
- Delphi中如何让TEdit编辑框控件从右边开始输入数据呢？
- 用JS验证输入框只能输入数值型数据
- DevExpress.XtraEditors.ComboBoxEdit 只能选择不能在里面 输入数据
- 通过键盘把数据输入数组，只能越来越大
- 只能输入数据-JavaScript