delphi Edit 控制最大值,只能输入数字型 控制小数位数
delphi语言受众多程序员追捧,主要原因之一就是它有很多第三方的控件可供使用。很多资深的delphi程序员都把自己积累的函数、过程等设计成控件,以方便使用,提高开发效率。
本文通过一个只允许输入数字、并且可以设置输入值范围和小数点位数的编辑框控件的设计,详细介绍了控件的实现方法。该控件继承自edit控件,控件单元名称为numedit,控件类名称为tnumedit。控件的实现主要分为4个阶段:
1、 建立控件原型。
2、 设计控件功能代码。
3、 设计控件图标。
4、 安装发布控件。
下面对这四个阶段进行介绍。
1、 建立控件原型
我们可以通过delphi向导建立控件原型。通过delphi菜单file-new-other
打开new items对话框,然后在new属性页中选择component,点击ok,弹出new component对话框,在该对话框中设置控件的基本信息,如下图(图1.1):
图1.1
ancestor type:选择你的控件要继承的类,我们选择tedit(stdctrls)。
class name:要创建的控件的类名称,我们设置为tnumedit。
palette page:该自定义控件发布后将要停靠的控件面板。
unit file name:该控件代码存放路径。
设置好上面信息后,点ok按钮,向导自动生成最原始的控件代码,如下:
unit numedit; //单元名称
interface
uses//该控件需要调用的单元
sysutils, classes, controls, stdctrls;
type
tnumedit = class(tedit) //控件类,继承自tedit
private//私有成员
{ private declarations }
protected//保护成员
{ protected declarations }
public//公有成员
{ public declarations }
published//发布成员
{ published declarations }
end;
procedure register;//过程声明
implementation
//下面函数功能是将控件tnumedit的图标显示在samples面板上。
procedure register;
begin
register components('samples', [tnumedit]);
end;
end.
到目前为止,控件tnumedit 已经具备了tedit编辑框的所有功能,下面我们就可以在这个基础上设计我们需求的功能了。
2、 设计控件功能代码
首先我们知道,该控件功能需求有三个:
1)只允许输入数字。
2)可以设置输入范围,即可以设置输入数字的最小、最大值。
3)可以设置输入数字的小数点位数。
基于上面需求,我们的控件需要做如下几个方面处理:
1)继承控件接收的按键事件,如果按的不是数字键直接返回。
2)增加控件可以接收的最大值max、最小值属性min。
3)增加控件小数点设置的属性dotnum。
4)响应控件焦点离开消息(cm_exit),在这里处理控件中录入的内容,使其大于min、小于max且小数点位数等于dotnum。
下面结合该控件代码,通过代码的注释介绍我们详细的处理过程。
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<> then //如果存在小数点
begin
if i= then //如果小数点在第一位,则在前面加0
s:=''+s;
len:=length(s)-pos('.',s); //获取小数点后的位数
if Fdotnum= then //如果小数点个数设置为0,则取小数点前的部分
s:=copy(s,,length(s)-len-)
else if len<Fdotnum then //追加0使s满足小数点后有fdotnum位数
begin
for j:= to Fdotnum-len- do
s:=s+'';
end
else //小数点后位数过多,舍去多余部分,不考虑四舍五入
begin
s:=copy(s,,length(s)-(len-Fdotnum));
end;
end
else// //不存在小数点,加上小数点,再加n个0
begin
s:=s+'.';
if Fdotnum= then
else
for j:= to Fdotnum- do
s:=s+'';
end;
result:=s;
end;
{过程描述:在自定义控件光标离开或者按回车键的时候处理,使控件里面的内容(text)符合数值范围和小数点位数设置的要求}
procedure TNumEdit.delaexit();
var
curvalue: Extended;
stemp,stemp1:string;//存放符号和值的字符串形式
begin
if trim(text)='' then text:='';//如果为空,默认填写0
if copy(text,,)='-' then //如果为负数
begin
stemp1:='-';
stemp:=copy(text,,length(text)-);
end
else //如果不是负数
begin
stemp1:='';
stemp:=text;
end;
try
curvalue:=StrToFloat(stemp); //转换为数字
except //转换失败,默认填写0并格式或为设定的小数位数。
showmessage('不是有效的数字!请确认');
text:=formatstr('');
self.SetFocus;
end;
//下面对最大值处理,分为大于0,等于0和小于0三种情况
if FMax> then //设置的最大值大于0的处理
begin
if (stemp1='') and (curvalue>FMax) then //为正且大于最大
curvalue:=FMax
end
else if FMax= then //等于0的处理
begin
if (stemp1='') then
curvalue:=FMax;
end
else if FMax< then //小于0多处理
begin
if (stemp1='') then
curvalue:=FMax
else if curvalue>abs(FMax) then
curvalue:=abs(FMax);
end;
//下面对最小值处理,分为大于0,等于0和小于0三种情况
if FMin> then //最小值大于0
begin
if ((stemp1='') and (curvalue<FMin)) then //支持负数
curvalue:=FMin
else if stemp1='-' then
curvalue:=FMin;
end
else if FMin= then //最小值等于0
begin
if stemp1='-' then
curvalue:=FMin;
end
else if FMin< then //最小值小于0
begin
if ((stemp1='-') and (curvalue>abs(FMin))) then
curvalue:=abs(FMin);
end;
//下面对小数位数进行处理
if curvalue= then
text:=formatstr(floattostr(curvalue))
else
text:=stemp1+formatstr(floattostr(curvalue));
end;
{函数描述:重载构造函数,设置自定义控件三个新增属性的默认值}
constructor TNumEdit.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FMin := ; //最小值默认为0
FMax := ; //最大值默认为255
Fdotnum:=; //小数点个数默认为2个
Text := formatstr(''); //text继承自Tedit,设置默认显示为0.00
end;
上面的编码设计使该控件已经满足了需求中提出的功能要求。
3、 设计控件图标
delphi控件要使用一个图标显示在delphi的控件面板上供开发者使用(由上面设计可知,该控件要显示在delphi控件面板的samples面板上),控件的图标有如下要求(注意图标文件名和图标名称的区别,下面有讲述):
1)图标文件名称为dcr(后缀名为dcr)格式,该类文件可认为是图标的容器,其中可以包含多个图标。
2)图标文件名要与控件单元的文件名一致,如该控件的图标文件名应该为numedit.dcr。
3)图标名称要与控件类名称一致。如本控件的图标名称应该为tnumedit。
4)图标文件要与控件单元文件位于同一目录下,这样发布控件时候才能关联到一块。
下面通过用delphi自带的工具image editor设计本控件的图标来介绍控件图标的设计,步骤如下:
1)通过delphi的菜单“tools-image editor”打开图标编辑工具。
2)通过file-new-component resource file(.dcr)建立一个图标文件。把它保存在numedit.pas相同目录下,名称为:numedit.dcr。此时image-editor如下图示(图3.1):
图3.1
3)在上图中,鼠标右键点contents,然后在弹出的菜单中选择 “new-bitmap”打开“bitmap properties”框,设置属性后点“ok”即可创建一个默认名称为 “bitmap1”的位图,把其名称修改为“tnumedit”,并双击它打开,然后通过画笔等工具设计该位图,示意如下(图3.2):
图3.2
设计位图根据自己的喜好,这里做简单的设计,设计好后保存即可。至此,该控件对应的图标已经设计好。
4、 安装发布控件
目前我们已经完成了控件的设计,该控件包含两个文件,代码文件numedit.pas和图标文件numedit.dcr。这一节介绍如何把该控件安装到delphi的控件面板上供开发者使用,步骤如下:
1、 把这两个文件拷贝到一指定目录下,对于自定义控件,作为一种好的开发习惯,我们一般在delphi安装目录下建立custom目录并把自定义控件拷贝过去。这里我们也建立custom\numedit目录,然后把该控件的文件拷贝到该目录下,如下:
c:\program files\borland\delphi7\custom\numedit\
2、 在delphi库中增加该控件的路径。通过菜单:
“tools-environment-options打开environment-options对话框,选择library属性页,然后单击library path后的选项按钮打开directories对话框,在该对话框中手工录入或者通过选项按钮把控件路径填写进去,如图(图4.1)所示:
图4.1
点击“add”按钮,点击ok,回到“environment-options”对话框,再点击 “ok”完成库文件路径添加。
3、控件安装。通过前两步的处理,我们就可以安装控件了,通过菜单“component-install component”打开控件安装对话框,点into existing package属性页中的unit file name后的browse按钮,选中要安装的控件文件numedit.pas,然后点“ok”按钮即可。系统提示是否编译,选择编译后便可以把该控件安装到delphi的控件面板,如下图:
图4.2
到目前我们已经完成了一个控件从最开始的需求分析到最终发布使用的全部过程。
好了,设计程序的时候,把上面的控件(红色的,在控件图标设计中设计的那个图标)拖到delphi的窗体上、通过设置控件的属性就可以使用该控件了。简单吧,快动手设计一个自己的控件吧。
delphi Edit 控制最大值,只能输入数字型 控制小数位数的更多相关文章
- 控制input只能输入数字和两位小数
<input type="text" name="je" onkeyup="clearNoNum(this)" /> funct ...
- javascript正则表达式控制input只能输入数字
不能输入中文 <input type="text" name="textfield" onkeyup="this.value=this.val ...
- jquery控制input只能输入数字和两位小数
jquery代码 function num(obj){ obj.value = obj.value.replace(/[^\d.]/g,""); //清除"数字" ...
- js控制input只能输入数字和小数点后两位,输入其他自动清除方法。
工作中input='text'总会遇到要控制输入数字,或者是输入中文,输入电话,输入身份证号,邮箱等.今天我遇到的是要输入数字并且只能小数点后面两位的数字,还不能为负数.废话不多说上代码: <i ...
- 【aardio】如何让edit控件只能输入数字、小数点及 - 号
import win.ui; /*DSG{{*/ var winform = win.form(parent=...; text="aardio Form";right=349;b ...
- WPF第三方控件,只能输入数字型数据
话不多说,根据最近项目需求,为了减少输入验证等相关代码量,需要此控件 先上效果图 默认样式是这样,自己可以根据需求修改外形,但我更喜欢它自带的简洁版 有人可能会问怎么实现的呢?其实很简单,我们设置它的 ...
- js控制只能输入数字和控制小数的位数
<input class="form130" style="width: 80px;" maxlength="10" id=" ...
- js 控制文本只能输入数字
代码如下: <input onkeypress="setNumber()"><script> function setNumber(){ var keyCo ...
- js控制输入框只能输入数字不能输入其他字符
<!DOCTYPE html> <html lang="en"> <head> <meta charset="UTF-8&quo ...
随机推荐
- 【TOJ 1545】Hurdles of 110m(动态规划)
描述 In the year 2008, the 29th Olympic Games will be held in Beijing. This will signify the prosperit ...
- 高级同步器:同步屏障CyclicBarrier
引自:http://ifeve.com/concurrency-cyclicbarrier/ 简介 CyclicBarrier 的字面意思是可循环使用(Cyclic)的屏障(Barrier).它要做的 ...
- Hive初识(三)
根据用户的需求创建视图.可以将任何结果集数据保存为一个视图.视图在Hive的用法和SQL视图用法相同.它是一个标准的RDBMS概念.我们可以在视图上执行所有DML操作. 创建一个试图 可以创建一个试图 ...
- 03 mysql补充 (进阶)
增加字段 alter table tb1 add age int first; 增加到第一 alter table tb1 add sex int after id; # 改变位置,id是字段名字 a ...
- go学习笔记-流程控制(if/else,for/range)
流程控制(if/else,for/range) if if条件判断语句的语法概括起来就是:如果满足条件就做某事,否则做另一件事. func testIf() { num := 10 if num &l ...
- Java——static关键字---18.09.27
static表示“全局”或者“静态”的意思,用来修饰成员变量和成员方法,也可以形成静态static代码块,但在Java语言中没有全局变量的概念. static关键字主要有两种作用: 一.为某特定数据类 ...
- 从0开始 java 网站开发(jsp)【1】
前提:安装java 并配置环境变量 java下载地址: http://www.java.com/zh_CN/ 环境变量配置 本地PC路径: 电脑--属性--高级--环境变量 在系统变量中: 新建 名: ...
- C# 集合之Dictionary详解
开讲. 我们知道Dictionary的最大特点就是可以通过任意类型的key寻找值.而且是通过索引,速度极快. 该特点主要意义:数组能通过索引快速寻址,其他的集合基本都是以此为基础进行扩展而已. 但其索 ...
- PHP.37-TP框架商城应用实例-后台13-商品管理-扩展分类的添加、显示【数据分组】、搜索分类【多对多】
商品扩展分类 需求:一件商品能有多个扩展分类,搜索任何一个分类都能搜出该商品 建表[扩展分类表] drop table if exists p39_goods_cat; create table p3 ...
- 在WPF中自定义控件(3) CustomControl (下)
原文:在WPF中自定义控件(3) CustomControl (下) 在WPF中自定义控件(3) CustomControl (下) ...