博客园  :: 首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理

Delphi中Self和Sender的区别

Posted on 2009-12-23 15:30  大椰网吧  阅读(388)  评论(0编辑  收藏  举报

Delphi中Self和Sender的区别

在事件处理程序参数表中,至少含有一个参数Sender,它代表触发事件处理程序的构件,如在上例中,Sender就指Button2,有了Sender参数,可以使多个构件共用相同的事件处理程序,如下例:
Procedure Tform1.Buttonclick(Sender:Tobject);
Begin
If sender=button1 then
Label1.caption:='看庭前花开花落' ;
Else Label2.caption:='望天上云卷云舒';
End;

在此例中,Button1,Button2共用了Buttonclick事件处理程序。

Self是指所编的程序范围是在哪一个类中,Delphi中大都在窗体范围内编程,因此,self即指窗体,如果在编写一个类或是一个组件,则 self 指该类或组件。我们在函数或过程的声明中可看出self是代表哪个组件,即self代表'.’号之前的组件,如在第一个例子中,self代表 Tform1。

另外应注意,self只能用在类方法中,而不能用在过程或函数中,如下例用法是错的:
Function a1(B:Integer):Integer;
Begin
……
Button:=tbutton.create(self);
    ……
End;