如何用Delphi編寫自己的可視化控件

2019-11-18 18:56:33

字體：大中小

供稿：網(wǎng)友

　　可視化控件(Visual Component)實際上就是一個類(class)，要編寫一個類，可以直接在*.pas文件中編寫。但是要編寫控件，則必須使用包(package)。從File菜單中選擇New，新建一個Package，這就是存放和安裝控件用的包。然后單擊Package窗口中的Add按鈕，添加一個元件(Unit)。
　　在彈出的對話框最上方選擇New Component。因為一個控件的所有屬性、方法、事件不可能都由自己編，所以就需要選擇祖先類（或者叫做"父類"或"基類"），然后再在其上面添加自己的屬性、方法、事件。在Ancestor type后的下拉框中選擇所需的祖先類。由于編寫可視化控件必須要畫圖，所以選擇TGraphicControl作為祖先類。再在Class Name框中輸入新控件（類）的名稱，一般以"T"開頭。Palette Page是用來選擇新控件在Delphi的窗口中的控件頁面名稱，例如"Standard"，這個可以自己取。在Unit File Name中添好新控件文件的路徑及文件名，單擊OK按鈕。新的控件便加入了?，F(xiàn)在可以為該控件編寫代碼了。
　　下面以編寫一個可以自定義圖片的滾動條為例，說明編寫可視化控件的方法。
　　按照上面的方法，選擇TGraphicControl為祖先類，新控件的名稱是TPigHorizontalScroller。選擇好文件路徑和文件名后，單擊OK按鈕，開始編寫代碼。
　　每一個控件，都會被創(chuàng)建（Create）和刪除（Destroy），所以必須首先編寫這兩個過程。對于控件中的每一個過程，都必須在前面先定義，然后再在后面編寫。定義的過程或?qū)傩杂腥N：一、在PRivate后定義的是屬于控件內(nèi)部使用的，使用該控件的人無法看到；二、在protected后定義的一般是看不到的，只在別人使用該控件作為祖先類編寫其它控件時才可見；三、在public后定義的只允許別人在程序中調(diào)用；四、在published后定義的可以在屬性窗口（Object Inspector）中看到。由于創(chuàng)建和刪除過程除了在編程過程中建立控件時自動執(zhí)行外，還可能在程序運行過程中動態(tài)創(chuàng)建控件時被調(diào)用，所以把它定義在public后⑴。（該序號表示次步驟在所附源程序中的代碼的位置，下同）現(xiàn)在也許還不知到應(yīng)該在這兩個過程中編寫什么，如何去編。我們在下面將會講到。
我們首先為這個控件添加一些屬性。我們定義一個Max屬性用于設(shè)置或讀取滾動條的最大值。因為在程序中一般不直接使用屬性，所以要定義一個變量，和該屬性對應(yīng)起來，一邊修改或讀取其值。因為它只在控件內(nèi)部使用，所以我們把它定義在private后⑵。（一般與屬性相關(guān)聯(lián)的變量都以"F"開頭，例如FMax）定義好變量后，再定義屬性。這個屬性需要再Object Inspector窗口中可見，所以把它定義再published后⑶。定義的語法是：
　　property <屬性名>:<類型> read <讀取該屬性時對應(yīng)的變量> write <寫入該屬性時對應(yīng)的變量或過程>
　　其它的變量和屬性也類似的定義（例如Min最小值、Value當(dāng)前值等）。下面我們定義幾個屬性和變量，用于設(shè)置滾動條的圖片（因為圖片變量比較特殊，所以單獨講一下）。我們把LeftButtonUpPicture（向左按鈕圖片）、LeftButtonDownPicture（向左按鈕按下圖片）等定義為TBitmap類型（一定要定義相對應(yīng)的變量）。
　　大家一定注意到了，在所附的源程序中，定義這幾個屬性時，read后所指定的讀取屬性時對應(yīng)的變量是F…，而write后指定的寫入該屬性時對應(yīng)的不是一個變量，而是一個Set…之類的東西，這是一個自定義的過程。作為該功能的過程的定義為：
　　procedure <過程名>(Value: <被設(shè)置的屬性的值的類型>)
　　因為執(zhí)行寫入該類屬性的時候需要做其它的事情，所以不能光用一個變量來處理，應(yīng)該用一個過程來處理。這中過程一般定義在protected后。在該類過程中，使用一個在⑷處這樣一個語句來給TBitmap類型的變量來賦值，這是由于該類型的變量不能直接賦值而采用的。
定義完這些TBitmap類型的變量的屬性后，上面講的create過程和destroy過程中就需要編寫代碼了。因為TBitmap也是一個類，所以在create過程中必須創(chuàng)建⑸，在destroy過程中必須釋放掉(free)⑹。這里⑺所指的inherited語句是用于指明該過程是從祖先類類中繼承來的。（這個一定不能掉）。
　　因為我們編寫的是可視化控件，所以必須在控件上畫圖。我們這個控件的祖先類TGraphicControl中封裝有一個Canvas（畫布）對象，我們可以直接使用它來畫圖。如果你對畫布的使用還不太熟悉，最好去找一本書來看一看。
　　下面要做的工作就是畫圖了。如何在控件上畫圖呢？祖先類TGraphicControl中有一個Paint事件，當(dāng)控件需要重畫時便會自動觸發(fā)。我們現(xiàn)在要做的就是要為這個事件編寫一段程序。首先在protected后定義一個Canvas對象。由于它是祖先類中已有的，所以不需要加任何說明⑻。我們將使用這個對象來畫圖。接著，就要定義一個Paint過程，編寫繪制控件的代碼。先在public后定義Paint過程。由于它是由祖先類觸發(fā)的，而不是由用戶調(diào)用的，所以后面必須加上override，否則，該控件將會由于Paint過程永遠(yuǎn)不會被調(diào)用而不成為可視化控件⑼。下面我們就來編寫Paint過程的代碼⑽。
　　該文章所附的源程序的Paint過程中的T_Height等變量是用來保存滾動條中按鈕、滑塊等的大小的，這部分程序和普通的application中的程序差別不大，大部分都是對畫布進行操作，相信大家一看就明白。值得注意的是下面對FAutoSize變量的判斷⑾,FAutoSize是和該控件的屬性AutoSize相關(guān)聯(lián)的布爾型變量，是用來設(shè)置這個控件的大小是否隨圖片的大小而變化的。注意，在控件的代碼中，一般都不直接調(diào)用屬性，而是使用與其相對應(yīng)的的變量。
程序編到這里，就算是終于給自己的新控件做了一個外型了，不過它還不能滾動。現(xiàn)在我們來編寫鼠標(biāo)事件，讓我們能夠操縱它。鼠標(biāo)事件的過程的定義和Paint過程很相似，只是后面要加上參數(shù)說明⑿,鼠標(biāo)事件分為MouseDown、MouseMove和MouseUp三個，在定義后面都要加上override。接下來在后面編寫它的代碼。注意：這里的鼠標(biāo)事件是Mouse…，而不是通常的OnMouse…?？墒窃冖烟幍亩x是干什么用的呢？這里的事件定義，都是給用戶使用的，也就是說，當(dāng)使用該控件時，會在Object Inspector中的Event頁面中顯示出來。
　　這些鼠標(biāo)事件的代碼也非常簡單，判斷鼠標(biāo)的坐標(biāo)，在畫布上畫出相應(yīng)的圖片等，并同時觸發(fā)相應(yīng)的事件。值得注意的是，在調(diào)用自定義事件時，都要先用⒁處的這樣一個語句來判斷用戶是否已經(jīng)為該事件編寫代碼。這一點非常重要，否則會調(diào)用出錯。
　　大家注意到了，剛才所調(diào)用的事件都是自定義的，定義的方法也很簡單，和定義屬性差不多，只是類型時TNotifyEvent罷了?！　　　　?BR>　　TNotifyEvent是默認(rèn)事件，其定義為：
　　TNotifyEvent = procedure(Sender: TObject)
　　如果你要定義另外形式的事件，就必須這樣：先在type后編寫
　　<事件類型名稱> = procedure(<參數(shù)>:<類型>)
例如：
　　TCustomEvent = procedure(a: Integer; b:String);
然后在public后定義：
　　 <事件名稱>:<事件類型名稱>
例如：
　　AnEvent: TCustomEvent;
　　看完這些，這整個程序你應(yīng)該理解了吧。如果編譯或運行出錯，注意檢查以下幾點：
　　　?。?、create和destroy過程中是否有inherited語句；
　　　?。?、TBitmap類型的變量create和free了沒有；
　　　?。?、過程前有沒有控件名，例如：TPigHorizontalScroller.MoseMove
　　判斷鼠標(biāo)是否進入或離開控件的方法：
定義如下的過程：
　　procedure MouseEnter(var Msg: TMessage); message CM_MOUSEENTER;
　　procedure MouseLeave(var Msg: TMessage); message CM_MOUSELEAVE;

上一篇：Delphi開發(fā)者快速解決問題的兩大網(wǎng)絡(luò)利器

下一篇：用delphi編寫醫(yī)院的復(fù)雜報表

學(xué)習(xí)交流

索泰發(fā)布一款GTX 1070 Mini迷你版本:小機

索泰發(fā)布一款GTX 1070 Mini迷你版本:小機箱大愛...

熱門圖片

猜你喜歡的新聞

猜你喜歡的關(guān)注