1. 增加只讀屬性
給日歷控制增加只讀選項是直接過程。通過增加屬性，可以提供在設計時使控制只讀的方法，當屬性值被設為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;
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對象。
