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；　　 

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

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

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

无意中上网在csdn论坛看到了一个很形象的解释：可以参考一下

方法,事件,sender,Tobject,self  
   
  你是一个人类（Tobject），你有你自己的性别，年龄，身高等（属性），你也会攀爬蹬走（方法），你也有你的情绪，思想，当别人说你好的时候你很高兴，说你坏时你会很沮丧（事件），有一天你自己（self）听到别人（sender）说你的女朋友好漂亮传给你的思想（事件），这时你会非常不高兴(事件处理外界的响应)