在事件處理程序參數(shù)表中，至少含有一個(gè)參數(shù)Sender,它代表觸發(fā)事件處理程序的構(gòu)件，如在上例中，Sender就指Button2，有了Sender參數(shù)，可以使多個(gè)構(gòu)件共用相同的事件處理程序，如下例： Procedure Tform1.Buttonclick(Sender:Tobject); Begin If sender=button1 then Label1.caption:=′看庭前花開(kāi)花落 ′ Else Label2.caption:=′望天上云卷云舒′ End；
在此例中，Button1,Button2共用了Buttonclick事件處理程序。
Self是指所編的程序范圍是在哪一個(gè)類中，Delphi中大都在窗體范圍內(nèi)編程，因此，self即指窗體，如果在編寫(xiě)一個(gè)類或是一個(gè)組件，則self指該類或組件。我們?cè)诤瘮?shù)或過(guò)程的聲明中可看出self是代表哪個(gè)組件，即self代表‘.’號(hào)之前的組件，如在第一個(gè)例子中，self代表Tform1。另外應(yīng)注意，self只能用在類方法中，而不能用在過(guò)程或函數(shù)中，如下例用法是錯(cuò)的: Function a1(B:Integer):Integer; Begin …… Button:=tbutton.create(self)；…… End；
