SetEditOnePoint() 使Edit控件中只能输入数字和1个小数点

最新推荐文章于 2024-12-06 11:28:52 发布

weixin_30457551

最新推荐文章于 2024-12-06 11:28:52 发布

阅读量139

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/xe2011/archive/2012/07/26/2609330.html

本文介绍了一种在Delphi中实现Edit控件仅允许输入数字和一个小数点的方法。通过提供的SetEditOnePoint过程，可以确保用户只输入合法的数值型数据。此功能适用于需要精确数值输入的应用场景。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

{使Edit控件中只能输入数字和1个小数点 }
// 调用放在Edit的KeyPress事件下 setOnePoint(Key,Edit1);
procedure SetEditOnePoint(var Key: Char;CTRL:Tedit);
var p:integer; tp:TPoint;
begin
   if key in['0'..'9','+','-','.'] then
      begin
         if key in['+','-'] then
             begin
               p:=pos('+',CTRL.Text)+pos('-',CTRL.Text);
               if p>0 then
                  key:=#0
               else
                  begin
                     GetCaretPos(tp);
                     if tp.x>1 then key:=#0;
                  end;
             end
         else  if key='.' Then
             begin
                p:=pos('.',CTRL.Text);
                if p>0 then key:=#0;
             end;
      end
   else if key>#31 then key:=#0;
end;

通过为知笔记发布

转载于:https://www.cnblogs.com/xe2011/archive/2012/07/26/2609330.html