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中正確編程是重要的。
【編輯推薦】