Delphi编写自定义控件以及接口的使用（做了一个TpgDbEdit）

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了Delphi编写自定义控件以及接口的使用（做了一个TpgDbEdit），小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含2584字，纯文字阅读大概需要4分钟。

内容图文

代码 unit pgdbedit;

interface

uses
  SysUtils, Classes, Controls, StdCtrls, CnEdit;

const
  IID_pgDBConInterface=‘{88CEA70D-0506-4CC0-ABB0-4BDBFA0DDBCE}‘;


type
  TdbType = (dbText, dbInteger, dbFloat, dbBit, dbTime, dbBlob); //文本类型

  IpgDBConInterface = interface(IInterface) //定义数据库操作控件的接口
    [IID_pgDBConInterface]
    //Stdcall是指示函数的参数入栈方式是从右到左
    function GetCanUpdate: Boolean;
    procedure SetCanUpdate(value: Boolean);
    property DB_canUpdate: Boolean read GetCanUpdate write SetCanUpdate; //是否更新数据。
  end;
  TpgDbEdit = class(TEdit, IpgDBConInterface)
  private
    { Private declarations }
    FCanUpdate: Boolean;
    function GetCanUpdate: Boolean;
    procedure SetCanUpdate(value: Boolean);
  protected
    { Protected declarations }
  public
    { Public declarations }
  published
    { Published declarations }
    property DB_canUpdate: Boolean read GetCanUpdate write SetCanUpdate; //是否更新数据。

implementation

function tpgdbedit.GetCanUpdate: Boolean;
begin
  Result:=FCanUpdate;
end;

procedure tpgdbedit.SetCanUpdate(value: Boolean);
begin
  FCanUpdate:=value;
end;
end.

 

 

说明：这里没有RegisterComponents是因为打算创建2个包，一个是运行时的包以及设计时的包。

 

第二步：创建注册单元：

下面是这个单元的源码：

 

代码 unit pgControlsRegister;

interface
uses
  Classes;

procedure Register;
{* 控件、组件编辑器、属性编辑器注册过程}

implementation

uses
  pgdbedit;

procedure Register;
begin
  RegisterComponents(‘pgControls‘, [TpgDbEdit]);
end;

end.

 

 

第三步：创建运行时的包：

（文件->新建->其它->Package）

在创建出来的Package中点上面的Add按钮，把第一步中的单元添加进去，然后点上面的Options按钮，在Usage Options中选择Runtime only。点击OK关闭掉Options，然后点Compile进行编译，系统会提示需要加入其它包的，点确认就行了，系统会自动添加必要的包。这样，运行时的包就创建完了。

 

第四步：创建设计时的包：

（文件->新建->其它->Package）

在创建出来的Package中点上面的Add按钮，把第二步中的单元添加进去，然后点上面的Options按钮，在Usage Options中选择Designtime only。点击OK关闭掉Options，然后点Compile进行编译，系统会提示需要加入其它包的，点确认就行了，系统会自动添加必要的包。这样，设计时的包就创建完了。

 

有关这两个包的概念，大家可以去：

http://www.cnpack.org/showdetail.php?id=510&lang=zh-cn

看下介绍，我都是看了介绍才知道，才会去这样弄。这里，我们也是安装设计时的包就行了。运行时的包不用管。

原创作品出自努力偷懒，转载请说明文章出处：http://www.cnblogs.com/kfarvid/

http://www.cnblogs.com/kfarvid/archive/2010/08/05/1793219.html

Delphi编写自定义控件以及接口的使用（做了一个TpgDbEdit）

标签：

本文系统来源：http://www.cnblogs.com/findumars/p/5951328.html

内容总结

以上是互联网集市为您收集整理的Delphi编写自定义控件以及接口的使用（做了一个TpgDbEdit）全部内容，希望文章能够帮你解决Delphi编写自定义控件以及接口的使用（做了一个TpgDbEdit）所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端

---