第十九章-Delphi自定义部件开发（三）（5）

第十九章-Delphi自定义部件开发（三）（5）2007-05-071. 增加只读属性

给日历控制增加只读选项是直接过程。通过增加属性，可以提供在设计时使控制只读的方法，当属性值被设为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加入窗体，会发现部件完全忽略鼠标和击键事件，而且当改变日期时，也不能改变选择的位置。下面将使控制响应更新。

2. 允许所需的更新

只读日历使用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;

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

3. 增加数据联接

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

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

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

● 声明对象域

● 声明访问属性

● 初始化DataLink

⑴ 声明对象域

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

日历部件中DataLink的声明如下：

type

TDBCalendar = class（TSampleCalendar）

private

FDataLink: TFieldDataLink;

…

end;

⑵ 声明访问属性

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

下面是DataSource和DataField的声明和它们的实现方法：

type

TDBCalendar = class（TSampleCalendar）

private { 属性的实现方法是 }

function GetDataField: string; { 返回数据库字段的名字 }

function GetDataSource: TDataSource; { 返回数据源（Data source）的引用 }

procedure SetDataField（const Value: string）; { 给数据库字段名赋值 }

procedure SetDataSource（Value: TDataSource）; { 给数据源赋值 }

published { 使属性在设计时可用 }

property DataField: string read GetDataField write SetDataField;

property DataSource: TDataSource read GetDataSource write SetDataSource;

end;

……

function TDBCalendar.GetDataField: string;

begin

Result := FDataLink.FieldName;

end;

function TDBCalendar.GetDataSource: TDataSource;

begin

Result := FDataLink.DataSource;

end;

procedure TDBCalendar.SetDataField（const Value: string）;

begin

FDataLink.FieldName := Value;

end;

procedure TDBCalendar.SetDataSource（Value: TDataSource）;

begin

FDataLink.DataSource := Value;

end;

现在，就建立了日历和DataLink的链，此外还有一个更重要的步骤。你必须在日历构建时创建DataLink对象，在日历析构时，撤消DataLink对象。