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

2019-11-18 18:56:33

字體：大中小

來源：轉載

供稿：網友

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

上一篇：Delphi開發者快速解決問題的兩大網絡利器

下一篇：用delphi編寫醫院的復雜報表