在事件处理程序参数表中，至少含有一个参数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；
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
