俗話說，不會寫控件的Delphi程序員不是真正的程序員。今天學學如何在Delphi中自定義控件。

下面的案例基于Delphi自帶的TButton自定義一個新的按鈕TOkButton，該按鈕新值一個Priority屬性。

新建組件

依次打開菜單，File -> New -> Other, 在彈出的對話框中找到Component，點擊OK。不同版本的Delphi界面可能不一樣，但是都可以找到Component。

設置控件支持的平台

任意選一個都可以。這裏選第一個，VCL for Delphi Win32。

設置繼承自的組件

設置父組件，本案例的組件基于TButton，所以這裏選擇TButton。

設置類名

繼續設置類名和存放位置，本例類名爲TOkButton，單元名爲OkButton.pass.

編寫自定義控件代碼

設置完成後，進入代碼界面。由于我們增加了一個自定義屬性Priority，所以需要在published聲明位置添加一個Priority屬性，這樣才可以在Object Inspector界面看到該屬性。

RegisterComponents('Samples', [TOkButton]);這段代碼表示把該控件添加到Samples面板下。其中Samples面板名，可以根據自己情況任意修改。

unit OkButton;interfaceuses System.SysUtils, System.Classes, Vcl.Controls, Vcl.StdCtrls;type TOkButton =(TButton) private { Private declarations } FPriority: Integer; protected { Protected declarations } property Priority: Integer read FPriority write FPriority; public { Public declarations } published { Published declarations } end;procedure Register;implementationprocedure Register;begin RegisterComponents('Samples', [TOkButton]);end;end.

至此代碼已經全部完成。

注冊控件

通過Component --> Install Component ,選擇okbutton.pas文件。由于我們當前沒有package，所以在該界面需要選擇Install into a new package，即第二個選項。

Next進入下一個界面，Package Name，我們的組件在OnButton.pass，所以此處設置爲OkButton.dpk，保持對應。

點擊Finish之後，系統爲我們開始安裝組件。安裝完成後，會彈出類似這種安裝成功的提示。

驗證

接下來驗證剛剛新建的組件。新建一個窗體應用程序，在控件面板Samples面板中找到TOkButton，拖到窗體中。