在事件處理常式參數表中,至少含有一個參數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)說你的女朋友好漂亮傳給你的思想(事件),這時你會非常不高興(事件處理外界的響應)