Delphi-Sender对象的定义

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

sender就是调用者,在delphi中你可以将一个按钮的事件过程赋给多个按钮,也就是说一个过程可以响应多个控件的单击过程。你可以根据sender的不同执行不同的操作。

sender是一个tobject类型的参数,它告诉delphi哪个控件接收这个事件并调用相应的处理过程。你可以编写一个单一的事件处理句柄,通过sender参数和if…then…语句或者case语句配合,来处理多个构件。发生事件的构件或控件的值已经赋给了sender参数,该参数的用途之一就在于:可以使用保留字is来测试sender,以便找到调用这个事件处理句柄的构件或控件的类型。例如,将表单中编辑框和标签的click事件的处理句柄都指向表单的xxx过程,编辑框和标签对click事件有不同的反应:

procedure tform1xxx(sender:tobject);

begin

if(sender is tedit) then

showmessage(′this is a editbox′);

if(sender is tlabel) then

showmessage(′this is a label′);

end;

sender参数的第二个用途是结合as操作符进行类型转换,将若干个派生于某一父类的子类强制转换成该父类。例如表单中有一个tedit类控件和一个tmemo控件,它们实际上都派生于tcustomedit类,如果你要为二者的某一事件提供同样处理,可以将二者事件句柄都指向自定义的过程 yyy:

procedure tform1.yyy(sender:tobject);

begin

(sender as tcustomedit).text:=′this is some demo text′;

end;

在过程中,as操作符将tedit类和tmemo类均强制转换成tcustomedit类,再对tcustomedit类的属性赋值。注意这种转换必须符合delphi中类的层次关系。

使用sender参数可以通过单一过程段处理多类控件,真正体现了delphi面向对象的重用性。

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