简化Delphi编程代码

======================================================
注：本文源代码点此下载
======================================================

在delphi应用程序开发中,程序设计人员的大部分工作是在组件的事件句柄中添加自己的程序代码,以实现具体的应用。在开发一些较大的应用程序时,为了完善程序的功能,使用户用起来方便、灵活,通常需要增加大量的组件,其中一些组件的事件句柄内容可能完全相同。如一个菜单项和与之有相同功能的按钮(如button1)的onclick事件;还有一些内容大部分相同,如button1的onclick事件改变edit1的某些属性,button2的onclick事件改变edit2的同样属性,两段代码内容中除了名称(edit1和edit2)不同外,其他完全相同。在编写代码时,虽然可以通过复制、粘贴、替换简化操作,但还是增大了程序的开发工作量和执行文件的大小。那么有没有解决上述问题的方法呢?

答案是肯定的,这就是使用事件句柄过程中的sender参数。目前市面上有关delphi的书籍中,对此参数进行讨论的部分不多。事实上这个参数非常重要,正是它告诉我们某个过程当前的调用者是哪一个组件。

下面通过建立一个简单的程序,介绍如何使用sender参数简化delphi的编程代码。

新建一个应用程序,在form1上添加两个按钮组件(button1和button2)和一个文本框组件(edit1)。

button1的onclick事件代码如下:

procedure tform1.button1click(sender: tobject);

begin

with sender as tbutton do

begin

edit1.text:=name;

enabled:=false;

width:=100;

height:=100;

end;

end;

选中button2,在object inspector的events属性页上选择onclick事件,下拉该事件右边的组合框,选择已有的button1click事件句柄名字。这样,按f9编译执行后,分别单击button1和button2按钮,就可以发现通过利用一段相同的代码,实现了对不同组件属性的控制。同时,在代码编辑器中只显示一个公共的事件句柄,而不是为每一个组件都重复显示这个句柄。

以上介绍的是sender参数在同类(tbutton)组件间的使用方法,有兴趣的读者可以试一试不同类的组件间sender参数的使用方法。下面是修改后的button1的onclick事件代码:

procedure tform1.button1click(sender: tobject);

begin

if sender is tbutton then

begin

with sender as tbutton do

begin

edit1.text:=name;

enabled:=false;

width:=100;

height:=100;

end;

end;

if sender is tedit then

begin

with sender as tedit do

begin

edit1.text:=name;

enabled:=false;

width:=100;

height:=100;

end;

end;

end;

选中edit1,在object inspector的events属性页上选择onclick事件,下拉该事件右边的组合框,选择已有的button1click事件名柄名字即可。

======================================================
在最后，我邀请大家参加新浪APP，就是新浪免费送大家的一个空间，支持PHP+MySql，免费二级域名，免费域名绑定 这个是我邀请的地址，您通过这个链接注册即为我的好友，并获赠云豆500个，价值5元哦！短网址是http://t.cn/SXOiLh我创建的小站每天访客已经达到2000+了，每天挂广告赚50+元哦，呵呵，饭钱不愁了，\(^o^)/