在事件處理程序參數(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:=‘看庭前花開花落‘ ;
Else Label2.caption:=‘望天上云卷云舒‘;
End;
在此例中，Button1,Button2共用了Buttonclick事件處理程序。
Self是指所編的程序范圍是在哪一個(gè)類中，Delphi中大都在窗體范圍內(nèi)編程，因此，self即指窗體，如果在編寫一個(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;
三、Clientheight和Height,Clientwidth和Width的區(qū)別：
對(duì)于一般的構(gòu)件而言，Height就是Clientheight,Width就是Clientwidth，而對(duì)于窗體而言，Height是包括標(biāo)題條 在內(nèi)的高度，而Clientheight是指窗體工作區(qū)的高度。同理，Clientwidth是指定窗體工作區(qū)的寬度。
從上面陳述可知，理解Ower和Parent,Self和Sender，Clientheight和Height,Clientwidth和Width區(qū)別，對(duì)于Delphi中正確編程是重要的。
