Delphi 自定义控件


前言

Delphi拥有高度的可扩展性和大量的第三方控件的支持,当控件面板上找不到合适控件时,不妨自己开发一个。


一、控件编写

尝试添加一个自定义面板控件TMyPanel,从TCustomPanel派生。

  1. 选择File-> New-> Other,选择Component
    在这里插入图片描述
  2. 选择要集成的控件
    在这里插入图片描述
  3. 填写自定义控件名称、控件在控制面板上的位置以及保存的文件名称
    在这里插入图片描述
  4. 编写自定义控件,保存为MyPanel.pas
unit MyPanel;

interface

uses
  SysUtils, Classes, Controls, ExtCtrls;

type
  TMyPanel = class(TCustomPanel)
  private
    { Private declarations }
  protected
    { Protected declarations }
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    { Published declarations }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Samples', [TMyPanel]);
end;

{ TMyPanel }

constructor TMyPanel.Create(AOwner: TComponent);
begin
  inherited;

end;

destructor TMyPanel.Destroy;
begin

  inherited;
end;

end.

  1. 新建Package包,File-> New-> Package,保存工程为MyPanel
  2. 把MyPanel.pas文件拷贝到工程目录下并且添加到包内
    在这里插入图片描述
    至此,自定义控件就编写完成

二、自定义控件安装

  1. 打开自定义控件工程,选择MyPanel.bpl右键安装
    在这里插入图片描述
  2. 安装完成提示新控件注册完成
    在这里插入图片描述
  3. 控件查看,控件控制面板对应分组下可以找到安装完成的新控件
    在这里插入图片描述
  4. 卸载控件,在MyPanel工程下选择MyPanel.bpl右键Uninstall
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值