unit NumEdit; //单元名称
interface
uses          //该控件需要调用的单元
　SysUtils, Classes, Controls, StdCtrls;
type
　TNumEdit = class(TEdit)        //控件类，继承自TEdit
　private                        //私有变量声明
FMin, FMax: Extended;        //编辑框允许输入的最大最小值。
Fdotnum:Cardinal;            //小数点后位数个数
procedure CMExit(var Message: TCMExit); message cm_exit;//响应焦点离开控件的消息
　protected                    //保护
procedure KeyPress(var Key: Char); override; //重载按键事件
procedure SetMin(value: Extended);
procedure SetMax(value: Extended); 
procedure setdotnum(value: Cardinal);
　public                       //公有
constructor Create(AOwner: TComponent); override;//重载构造函数
function formatstr(s:string):String; //规整字符串
procedure delaexit;                  //处理使控件中的内容
published     //发布三个属性，分别表示最小值，最大值和小数点数 
property Min: Extended read FMin write SetMin ; //;
property Max: Extended read FMax write SetMax ; //;
property dotnum:Cardinal read Fdotnum write setdotnum ; //;
end;
procedure Register;      //注册过程声明
implementation
{函数描述：规整字符串，使其小数位数为：fdotnum。
参数s：要处理的数值的字符串形式。
返回值：字符串形式的数值，小数位数为fdotnum。}
function TNumEdit.formatstr(s:string):string;
var
i,j:integer;
len:cardinal;
begin
i:=pos('.',s); //在s中定位小数点
if i<>0 then //如果存在小数点
begin
if i=1 then //如果小数点在第一位，则在前面加0
    s:='0'+s;
len:=length(s)-pos('.',s); //获取小数点后的位数
if Fdotnum=0 then   //如果小数点个数设置为0，则取小数点前的部分
    s:=copy(s,1,length(s)-len-1)
else if len<Fdotnum then //追加0使s满足小数点后有fdotnum位数
begin
    for j:=0 to Fdotnum-len-1 do
      s:=s+'0';
end
else //小数点后位数过多，舍去多余部分，不考虑四舍五入
begin
    s:=copy(s,1,length(s)-(len-Fdotnum));
end;
end
else// //不存在小数点,加上小数点，再加n个0
begin
s:=s+'.';
if Fdotnum=0 then
else
    for j:=0 to Fdotnum-1 do
      s:=s+'0';
end;
result:=s;
end;
{过程描述：在自定义控件光标离开或者按回车键的时候处理，使控件里面的内容（text）符合数值范围和小数点位数设置的要求}
procedure TNumEdit.delaexit();
var
curvalue: Extended;
stemp,stemp1:string;//存放符号和值的字符串形式
begin
if trim(text)='' then text:='0';//如果为空，默认填写0
if copy(text,1,1)='-' then //如果为负数
begin
    stemp1:='-';
    stemp:=copy(text,2,length(text)-1);
end
else //如果不是负数
begin
    stemp1:='';
    stemp:=text;
end;
try
    curvalue:=StrToFloat(stemp); //转换为数字
except //转换失败，默认填写0并格式或为设定的小数位数。
    showmessage('不是有效的数字！请确认');
    text:=formatstr('0');
    self.SetFocus;
end;
//下面对最大值处理，分为大于0，等于0和小于0三种情况
if FMax>0 then //设置的最大值大于0的处理
begin
    if (stemp1='') and (curvalue>FMax) then //为正且大于最大
      curvalue:=FMax
end
else if FMax=0 then //等于0的处理
begin
    if (stemp1='') then
      curvalue:=FMax;
end
else if FMax<0 then //小于0多处理
begin
    if (stemp1='') then
      curvalue:=FMax
    else if curvalue>abs(FMax) then
      curvalue:=abs(FMax);
end;
//下面对最小值处理，分为大于0，等于0和小于0三种情况
if FMin>0 then //最小值大于0
begin
    if ((stemp1='') and (curvalue<FMin)) then //支持负数
      curvalue:=FMin
    else if stemp1='-' then
      curvalue:=FMin;
end
else if FMin=0 then //最小值等于0
begin
    if stemp1='-' then
      curvalue:=FMin;
end
else if FMin<0 then //最小值小于0
begin
    if ((stemp1='-') and (curvalue>abs(FMin))) then
      curvalue:=abs(FMin);
end;
//下面对小数位数进行处理
if curvalue=0 then
  text:=formatstr(floattostr(curvalue))
else
    text:=stemp1+formatstr(floattostr(curvalue));
end;
{函数描述：重载构造函数，设置自定义控件三个新增属性的默认值} 
constructor TNumEdit.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FMin := 0; //最小值默认为0
FMax := 255; //最大值默认为255
Fdotnum:=2; //小数点个数默认为2个
Text := formatstr('0'); //text继承自Tedit，设置默认显示为0.00
end;