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

三、Clientheight和Height,Clientwidth和Width的区别:

  对于一般的构件而言,Height就是Clientheight,Width就是Clientwidth,而对于窗体而言,Height是包括标题条在内的高度,而Clientheight是指窗体工作区的高度。同理,Clientwidth是指定窗体工作区的宽度。

  从上面陈述可知,理解Ower和Parent,Self和Sender,Clientheight和Height,Clientwidth和Width区别,对于Delphi中正确编程是重要的。

05-11 20:51