加入收藏  广告服务  关于我们
 2003-8-20

Self和Sender的区别

发表:helloqiqi   阅读:次  关键字:不详   字体:[ ]

  在事件处理程序参数表中,至少含有一个参数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;  

 热门文章
 推荐信息