知识大全 Delphi自定义部件开发（三）[3]

Posted 2022-07-14 部件

篇首语：恐惧自己受苦的人，已经因为自己的恐惧在受苦。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 Delphi自定义部件开发（三）[3]相关的知识，希望对你有一定的参考价值。

DELPHI基础教程：Delphi自定义部件开发（三）[3] 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　控制Delphi是否存储属性的方法是在属性声明后面加stored指令后跟True或False 或者是布尔方法名你可以给任何属性的声明或重声明加stored表达式下面的代码显示了部件声明三种新属性一个属性是总是要存储一个是不存第三个则决定于布尔方法的值

　　type

　　TSampleCompiment = class（TComponent）

　　protected

　　function storeIt: Boolean;

　　public 正常情况下在不存

　　property Important: Integer stored True; 总是存储

　　published 正常情况下保存

　　property UnImportant: Integer stored False; 不存

　　property Sometimes: Integer stored StoreIt; 存储依赖于函数值

　　end;

　　④ 载入后的初始化

　　在部件从存储的描述中读取所有的属性后它调用名为Loaded的虚方法这提供了按需要执行任何初始化的机会调用Loaded是在窗体和它的控制显示之前因此不需要担心初始化会带来屏幕闪烁

　　在部件载入属性时初始化它要覆蓋Loaded方法

　　在Loaded方法中要做的第一件事是调用继承的Loaded方法这使得在你的部件执行初始化之前任何继承的属性都已初始化

　　下面的代码来自于TDatabase部件在装入后 TDatabase试图重建在它存储时已打开的连接并描述在连接发生异常时如何处理

　　procedure TDatabase Loaded

　　begin

　　inherited Loaded; 总是先调用继承的方法

　　Modified; 设置内部标志

　　try

　　if FStreamedConnected then Open; 重建联接

　　except

　　if csDesigning in ComponentState then 在设计时

　　Application HandleException（self）让Delphi处理异常

　　else raise; 否则

　　end;

　　 Delphi部件编程实例

　　 创建数据库相关的日历控制 TDBCalendar

　　当处理数据库联接时将控制和数据直接相联是很重要的就是说应用程序可以建立控制与数据库之间的链 Delphi包括了数据相关的标签编辑框列表框和栅格用户可以使自己的控制与数据相关

　　数据相关有若干等级最简单的是只读数据相关或数据浏览以及反映数据库当前状态的能力比较复杂的是数据相关的编辑也即用户可以在控制上操作数据库中的数据

　　在本部分中将示例最简单的情况即创建联接数据库的单个字段的只读控制本例中将使用Component Palette的Samples页中的TCalendar部件

　　创建数据相关的日历控制包括下列几步

　　● 创建和注册部件

　　● 使控制只读

　　● 增加数据联接（Data Link）

　　● 响应数据改变

　　 创建和注册部件

　　每个部件的创建都从相同的方式开始在本例中将遵循下列过程

　　● 将部件库单元命名为DBCal

　　● 从TCalendar继承一个新部件名为TDBCalendar

　　● 在Component Palette的Samples页中注册TDBCalendar

　　下面就是创建的代码

　　unit DBCal;

　　interface

　　uses SysUtils WinTypes WinProc Messages Classes Graphics Controls

　　Forms Grids Calendar;

　　type

　　TDBCalendar=class（TCalendar）

　　end;

　　procedure Register;

　　implementation

　　procedure Register;

　　begin

　　RegisterComponents（Samples [TDBabendar]）

　　end;

　　end

　　 使控制只读

　　因为这个数据日历以只读方式响应数据所以用户不能在控制中改变数据并指望它们反映到数据库中

　　使日历只读包含下列两步

　　● 增加只读属性

　　● 允许所需的更新

　　 增加只读属性

　　给日历控制增加只读选项是直接过程通过增加属性可以提供在设计时使控制只读的方法当属性值被设为True 将使控制中所有元素不可被选

　　⑴ 增加属性声明和保存值的private域

　　type

　　TDBCalendar=class（TClendar）

　　private

　　FReadOnly: Boolean;

　　public

　　constructor Create （Aowner: TComponent） override;

　　published

　　property ReadOnly: Boolean read FReadOnly write FReadOnly default True;

　　end;

　　constructor TDBCalendar Create（Aowner: TComponent）

　　begin

　　inherited Create（AOwner）

　　FReadOnly := True;

　　end;

　　⑵ 覆蓋SelectCell方法使得当控制是只读时不允许选择

　　function TDBCalendar SelectCell（ACol Arow: Longint） Boolean;

　　begin

　　if FReadOnly then

　　Result := False

　　else

　　Result := inherited SelectCell（Acol ARow）

　　end;

　　还要在TDBcalendar的声明中声明SelectCell

　　如果现在将Calendar加入窗体会发现部件完全忽略鼠标和击键事件而且当改变日期时也不能改变选择的位置下面将使控制响应更新

　　 允许所需的更新

　　只读日历使用SelectCell方法实现各种改变包括设置Row和Col的值当日期改变时 UpdateCalendar方法设置Row和Col的值但因为SelectCell不允许你改变即使日期改变了选择仍留在原处

　　可以给日历增加一个Boolean标志当标志为True时允许改变

　　type

　　TDBCalendar=class（TCalendar）

　　private

　　Fupdating: Boolean;

　　protected

　　function SelectCell（Acol Arow: Longint） Boolean; override;

　　public

　　procedure UpdateCalendar; override;

　　end;

　　function TDBCalendar SelectCell（ACol ARow: Longint） Boolean;

　　begin

　　if （not FUpdating） and FReadOnly then

　　Result := False 如果更新则允许选择

　　else

　　Result := inherited SelectCell（ACol ARow）否则调用继承的方法

　　end;

　　procedure UpdateCalendar;

　　begin

　　FUpdating := True; 将标志设为允许更新

　　try

　　inherited UpdateCalendar; 象通常一样更新

　　finally

　　FUpdating := False; 总是清除标志

　　end;

　　现在日历仍旧不允许用户修改但当改变日期属性时能正确反映改变目前已有了一个真正只读控制下一步是增加数据浏览能力

　　 增加数据联接

　　控制和数据库的联接是由一个名为DataLink的对象处理 Delphi提供了几种类型的Datalink 将控制与数据库单个域相联的DataLink对象是TFieldDatalink Delphi也提供了与整个表相联的DataLink

　　一个数据相关控制拥有DataLink对象就是说控制负责创建和析构DataLink

　　要建立作为拥有对象的Datalink 要执行下列三步

　　● 声明对象域

　　● 声明访问属性

　　● 初始化DataLink

　　⑴ 声明对象域

　　每个部件要为其拥有对象声明一个对象域因此日历对象DataLink 声明TFieldDataLink类型的域

　　日历部件中DataLink的声明如下

　　type

　　TDBCalendar = class（TSampleCalendar）

　　private

　　FDataLink: TFieldDataLink;

　　…

　　end;

　　⑵ 声明访问属性

　　每一个数据相关控制有一个DataSource属性该属性描述应用程序给控制提供数据的数据源而且访问单个域的数据库还需要一个DataField 属性描述数据源中的域

cha138/Article/program/Delphi/201311/25115