======================================================
注：本文源代码点此下载
======================================================
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;//小数点后位数个数,如果是0 则是整数
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
if fdotnum=0 then
begin
result:=s;
exit;
end;
i:=pos('.',s); //在s中定位小数点
if i如果存在小数点
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追加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多处理
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支持负数
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
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;
{过程描述:响应焦点离开控件的消息:cm_exit。在焦点离开时调用过程delaexit()处理控件内容}
procedure tnumedit.cmexit(var message: tcmexit);
begin
inherited; //继承父类tedit的响应
delaexit();//处理控件内容
end;
//设置最小值
procedure tnumedit.setmin(value: extended);
begin
fmin := value;
if fmax
fmax := fmin;
end;
//设置最大值
procedure tnumedit.setmax(value: extended);
begin
fmax := value;
if fmin > fmax then
fmin := fmax;
end;
//设置小数点位数
procedure tnumedit.setdotnum(value: cardinal);
begin
fdotnum:=value;
text := formatstr('0');
end;
{函数描述:重载按键响应,只响应输入数字和回车}
procedure tnumedit.keypress(var key: char);//override;
begin
inheritedkeypress(key);//继承父类
if key in [#13] then//如果按回车键,处理控件内容
delaexit;
if not (key in [#45,#46,#48..#57,#8]) then //如果非数字键,不响应
begin
key:= #0; //该语句使你按键时候,控件不予处理、不显示
end;
end;
{注册控件 使tnumedit显示在delphi控件面板的samples面板}
procedure register;
begin
registercomponents('samples', [tnumedit]);
end;
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的窗体上、通过设置控件的属性就可以使用该控件了。简单吧,快动手设计一个自己的控件吧。
======================================================
在最后，我邀请大家参加新浪APP，就是新浪免费送大家的一个空间，支持PHP+MySql，免费二级域名，免费域名绑定 这个是我邀请的地址，您通过这个链接注册即为我的好友，并获赠云豆500个，价值5元哦！短网址是http://t.cn/SXOiLh我创建的小站每天访客已经达到2000+了，每天挂广告赚50+元哦，呵呵，饭钱不愁了，\(^o^)/
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
