2011計算機等考Delphi：Delphi自定義部件開發(fā)

　　19.3.1.2 使控制只讀

　　因為這個數(shù)據(jù)日歷以只讀方式響應(yīng)數(shù)據(jù)，所以用戶不能在控制中改變數(shù)據(jù)并指望它們反映到數(shù)據(jù)庫中。

　　使日歷只讀包含下列兩步：

　　● 增加只讀屬性

　　● 允許所需的更新

　　1. 增加只讀屬性

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

　　如果現(xiàn)在將Calendar加入窗體，會發(fā)現(xiàn)部件完全忽略鼠標和擊鍵事件，而且當改變?nèi)掌跁r，也不能改變選擇的位置。下面將使控制響應(yīng)更新。

　　2. 允許所需的更新

　　只讀日歷使用SelectCell方法實現(xiàn)各種改變，包括設(shè)置Row和Col的值。當日期改變時，UpdateCalendar方法設(shè)置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); { 否則調(diào)用繼承的方法 }

　　end;

　　procedure UpdateCalendar;

　　begin

　　FUpdating := True; { 將標志設(shè)為允許更新 }

　　try

　　inherited UpdateCalendar; { 象通常一樣更新 }

　　finally

　　FUpdating := False; { 總是清除標志 }

　　end;

　　end;

　　現(xiàn)在日歷仍舊不允許用戶修改，但當改變?nèi)掌趯傩詴r能正確反映改變;目前已有了一個真正只讀控制，下一步是增加數(shù)據(jù)瀏覽能力。

　　3. 增加數(shù)據(jù)聯(lián)接

　　控制和數(shù)據(jù)庫的聯(lián)接是由一個名為DataLink的對象處理。Delphi提供了幾種類型的Datalink。將控制與數(shù)據(jù)庫單個域相聯(lián)的DataLink對象是TFieldDatalink。Delphi也提供了與整個表相聯(lián)的DataLink。

　　一個數(shù)據(jù)相關(guān)控制擁有DataLink對象，就是說，控制負責創(chuàng)建和析構(gòu)DataLink。

　　要建立作為擁有對象的Datalink，要執(zhí)行下列三步：

　　● 聲明對象域

　　● 聲明訪問屬性

　　● 初始化DataLink

　�、� 聲明對象域

　　每個部件要為其擁有對象聲明一個對象域。因此，日歷對象DataLink 聲明TFieldDataLink類型的域。

　　日歷部件中DataLink的聲明如下：

　　type

　　TDBCalendar = class(TSampleCalendar)

　　private

　　FDataLink: TFieldDataLink;

　　…

　　end;

　　⑵ 聲明訪問屬性

　　每一個數(shù)據(jù)相關(guān)控制有一個DataSource屬性，該屬性描述應(yīng)用程序給控制提供數(shù)據(jù)的數(shù)據(jù)源。而且，訪問單個域的數(shù)據(jù)庫還需要一個DataField 屬性描述數(shù)據(jù)源中的域。

　　下面是DataSource和DataField的聲明和它們的實現(xiàn)方法：

　　type

　　TDBCalendar = class(TSampleCalendar)

　　private { 屬性的實現(xiàn)方法是 }

　　function GetDataField: string; { 返回數(shù)據(jù)庫字段的名字 }

　　function GetDataSource: TDataSource; { 返回數(shù)據(jù)源(Data source)的引用 }

　　procedure SetDataField(const Value: string); { 給數(shù)據(jù)庫字段名賦值 }

　　procedure SetDataSource(Value: TDataSource); { 給數(shù)據(jù)源賦值 }

　　published { 使屬性在設(shè)計時可用 }

　　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;

　　現(xiàn)在，就建立了日歷和DataLink的鏈，此外還有一個更重要的步驟。你必須在日歷構(gòu)建時創(chuàng)建DataLink對象，在日歷析構(gòu)時，撤消DataLink對象。