1.File - new componet
2.选择要继承的控件
3.填写自定义控件的名称和控件在控件面板上的位置。
4.编写自定义控件代码，定义了PFaddress 属性。
unit mybutton; interface uses Windows, Messages, System.SysUtils, System.Classes, Vcl.Controls, Vcl.StdCtrls; type TMyButton = class(TButton) private procedure SetFaddress(const Value: string); { Private declarations } protected { Protected declarations } public { Public declarations } Faddress: string; published { Published declarations } property PFaddress: string read Faddress write SetFaddress; end; procedure Register; implementation procedure Register; begin RegisterComponents('Samples', [TMyButton]); end; procedure TMyButton.SetFaddress(const Value: string); begin Faddress := Value; end; end.
以上是自定义控件代码编写完成，之后新建包package
5.把Mybutton.pas单元添加到包内，编译通过
6.通过component --> install component ,选择mybutton.pas文件
7.在package name 添加 之前编译生成包的dpk文件，点击finish完成。
8.测试验证，新建执行程序，可以在控件列表Samples 多了一个TmyButton 控件。
9.在新建的application 的Form上拖放一个Tmybutton,可以看到自定义属性PFaddress
10.输出显示下PFaddress
procedure TForm12.MyButton1Click(Sender: TObject); begin ShowMessage(MyButton1.PFaddress); end;
请发表评论