日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

RELATEED CONSULTING
相關(guān)咨詢
選擇下列產(chǎn)品馬上在線溝通
服務(wù)時間:8:30-17:00
你可能遇到了下面的問題
關(guān)閉右側(cè)工具欄

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營銷解決方案
Delphi中Self和Sender的區(qū)別

在事件處理程序參數(shù)表中,至少含有一個參數(shù)Sender,它代表觸發(fā)事件處理程序的構(gòu)件,如在上例中,Sender就指Button2,有了Sender參數(shù),可以使多個構(gòu)件共用相同的事件處理程序,如下例:

 
 
 
  1. Procedure Tform1.Buttonclick(Sender:Tobject);   
  2.   Begin   
  3.   If sender=button1 then   
  4.   Label1.caption:=′看庭前花開花落   
  5. ′   Else Label2.caption:=′望天上云卷云舒′   
  6.   End;  

在此例中,Button1,Button2共用了Buttonclick事件處理程序。

Self是指所編的程序范圍是在哪一個類中,Delphi中大都在窗體范圍內(nèi)編程。

因此,self即指窗體,如果在編寫一個類或是一個組件,則self指該類或組件。

我們在函數(shù)或過程的聲明中可看出self是代表哪個組件,即self代表‘.’號之前的組件,如在***個例子中,self代表Tform1。

另外應(yīng)注意,self只能用在類方法中,而不能用在過程或函數(shù)中,如下例用法是錯的:

 
 
 
  1. Function a1(B:Integer):Integer;   
  2.   Begin   
  3.   ……   
  4.   Button:=tbutton.create(self);……   
  5.   End; 

Clientheight和Height,Clientwidth和Width的區(qū)別:

對于一般的構(gòu)件而言,Height就是Clientheight,Width就是Clientwidth,而對于窗體而言,Height是包括標題條在內(nèi)的高度,而Clientheight是指窗體工作區(qū)的高度。同理,Clientwidth是指定窗體工作區(qū)的寬度。

從上面陳述可知,理解Ower和Parent,Self和Sender,Clientheight和Height,Clientwidth和Width區(qū)別,對于Delphi中正確編程是重要的。


當(dāng)前文章:Delphi中Self和Sender的區(qū)別
本文地址:http://www.5511xx.com/article/coojpch.html