Delphi制作数据感知控件之浮想联翩

 
Delphi制作数据感知控件之浮想联翩
王维康 编写

知识点
本文共有6个关于控件的知识点：
1、基本控件的制作；2、感知属性的添加；3、关联控件的销毁处理；
4、事件方法的赋值； 5、属性页的制作；  6、组件包设计思想
 
关于制作感知控件的文章有不少，但涉及的内容大都比较单一，读者只能依照文章的陈述按部就班地操作，无法很好的理解控件的制作机制。本文试图通过讲解一个控件的制作流程来着重阐述制作感知控件的思路和编程思想，让读者真正了解VCL控件的制作机制，而非仅仅达到了解此控件的制作方法为目的，希望能使读者在阅读以后达到“一叶落而知天下秋”的效果，哈，夸张了。
本文以制作一个类似于DBEdit的控件为例。首先使用组件向导从TEdit下继承下来，命名TMyDataBaseEdit，单元名为MyDataBaseEdi.pas,安装在一个新的包文件中，起名为MyDataEditStd60.Dpk。
包的命名没有规则，但是我们建议遵守包的命名约定：包的命名与包的版本相关，包的名称前面几个字符通常表示作者或公司名，也可以是控件的一个描述词，后面紧跟的Std表示运行期包，Dsgn表示设计期包，然后是版本号。关于包的设计方式我们将随后详细说明。
数据感知
准备就绪，我们开始编辑控件的功能，首先添加数据源感知属性 .DataSource,实现此属性只需Pubished域添加一句话：
property DataSource: TDataSource read GetDataSource write SetDataSource;按下shift ＋ctrl＋ C组合键（complete class at cursor）完成属性的自动结构化功能，private域自动添加两个函数：
procedure SetDataSource(const Value: TDataSource);
function GetDataSource: TDataSource;
这样，安装组件到面板，可以看到该组件已经拥有了.DataSource属性，并实现感知TDataSource控件功能。怎么样，简单吧，呵呵。其实我们由此可以得到：控件属性的感知只不过是将它的一个属性声明为将要感知的控件类而已，如果感知Image控件，则：
    property MyImage：TImage read GetImage write SetImage；
    但是，假如我们要将一个控件作为这个控件的子属性，即将这两个控件的代码合并，则不能单单需要上述那一句话了：
首先，去掉添加控件的注册函数；
其次，将其从TComponent继承改为从TPersistent继承下来。大家可试试看。
事件赋值
    不过，该控件并不能真正与数据库相连，只是一个样子而已，要真正实现功能，我们需要添加代码，这时候我们用到了一个重要的类TfieldDataLink。
它是控件内部的数据联接对象，从TDataLink继承下来，它的作用是与TDataSource组件相互通信，连接单个字段进行数据提取。我们将要处理这个对象的OnDataChange事件，这样，当字段或记录有所改变时就会得到通知，进行相应的数据处理。Ok，我们声明对象并创建：
private域声明 FDataLink：TFieldDataLink；构造函数中创建
constructor TMyDataBaseEdit.Create(AOwner: TComponent);
begin
  inherited;
  FDataLink := TFieldDataLink.Create;
  FDataLink.OnDataChange := DataChange;
end;
 
DataChange是我们private域声明的一个过程：procedure DataChange(Sender: TObject);这里面实现了我们这个控件的实际功能，并和FDataLink.OnDataChange事件相连。创建成功之后我们实现GetDataSource、SetDataSource函数过程：
function TMyDataBaseEdit.GetDataSource: TDataSource;
begin
  Result :=

补充：软件开发 , Delphi ,