?
六、控件手拉手――控件關(guān)聯(lián)的實(shí)現(xiàn)
控件的關(guān)聯(lián)在Delphi中也是很常見的，我們可以設(shè)定一個(gè)控件的某個(gè)屬性指向另一個(gè)控件。比如我們?cè)诖绑w上放上Tedit,TpopupMenu兩個(gè)控件，然后設(shè)定Tedit的PopupMenu屬性為TpopupMenu控件，運(yùn)行后在Tedit點(diǎn)擊右鍵就會(huì)彈出剛才設(shè)定的那個(gè)TpopupMenu菜單，也就是說Tedit,TpopupMenu聯(lián)手完成了任務(wù)。再比如TDBEdit控件的DataSource屬性就可以指向一個(gè)TdataSource控件，這樣就可以在TDBEdit控件中顯示TdataSource輸出的某個(gè)字段的值了。
? 下面我們將寫一個(gè)簡(jiǎn)單的實(shí)現(xiàn)控件關(guān)聯(lián)的控件。這個(gè)控件派生于Tedit,它可以與一個(gè)Tlabel控件關(guān)聯(lián)，在控件的編輯框中輸入文字時(shí)，與它關(guān)聯(lián)的Tlabel控件的文字將隨著它而變化。代碼如下：
unit MyEdit;
interface
uses
? SysUtils, Classes, Controls, StdCtrls;
type
? TMyEdit = class(TEdit)
? private
??? FLinkLabel: TLabel;
??? procedure FSetLinkLabel(AValue: TLabel);
? protected
??? procedure Notification(AComponent: TComponent;Operation: TOperation);
????????? override;
??? procedure Change;override;
? public
? published
??? property LinkLabel: TLabel read FLinkLabel write FSetLinkLabel;
? end;
?
procedure Register;
?
implementation
procedure Register;
begin
? RegisterComponents('Linco', [TMyEdit]);
end;
procedure TMyEdit.Change;
begin
? inherited;
? if LinkLabel <> nil then
??? LinkLabel.Caption := Text;
end;
?
procedure TMyEdit.FSetLinkLabel(AValue: TLabel);
begin
? FLinkLabel := AValue;
? if AValue <> nil then
??? FLinkLabel.FreeNotification(self);
end;
?
procedure TMyEdit.Notification(AComponent: TComponent;
? Operation: TOperation);
begin
? inherited;
? if (Operation = opRemove) and (AComponent = LinkLabel) then
??? LinkLabel := nil;
end;
end.
代碼解釋：
（1）、我們只要將控件的任意一個(gè)屬性的類型設(shè)定為另外一個(gè)控件的類名稱，那么我們就可以在控件的Object Inspector中將這個(gè)屬性指向那個(gè)控件（或那個(gè)控件的派生控件）的一個(gè)實(shí)例。比如本例中我們?cè)黾恿?/SPAN>LinkLabel屬性，它的類型為 Tlabel，所以我們就可以把LinkLabel屬性指向一個(gè)標(biāo)簽控件。
（2）、請(qǐng)注意FsetLinkLabel中的這段代碼：
?if AValue <> nil then
FLinkLabel.FreeNotification(self);
如果我們將控件關(guān)聯(lián)屬性指向了一個(gè)控件，可是后來又將被指向的控件刪除了，那么我們的控件關(guān)聯(lián)屬性是不會(huì)自動(dòng)刪除的，這樣就會(huì)造成控件關(guān)聯(lián)屬性指向的控件不存在的現(xiàn)象。我們必須自動(dòng)感知被關(guān)聯(lián)控件的刪除并重新設(shè)定控件關(guān)聯(lián)屬性為不指向任何控件，這樣就避免了錯(cuò)誤的發(fā)生。
FLinkLabel.FreeNotification(self);的作用就是這樣的。它調(diào)用控件的FreeNotification方法（在Tcomponent中定義）向被指向的控件注冊(cè)一個(gè)“消息”，當(dāng)被指向控件被刪除時(shí)，會(huì)向所有向他注冊(cè)的控件發(fā)送一個(gè)它被刪除的消息，此時(shí)向他注冊(cè)的控件就會(huì)觸發(fā)Notification方法，這樣我們就可以自動(dòng)感知被指向控件的狀態(tài)了。這是設(shè)計(jì)模式中Observer(觀察者)模式的典型應(yīng)用。
既然向他注冊(cè)的控件就會(huì)觸發(fā)Notification方法，我們就覆蓋父類的Notification方法，寫出如下的代碼：
? if (Operation = opRemove) and (AComponent = LinkLabel) then
??? LinkLabel := nil;
這句話的意思是：如果控件被刪除并且被刪除的控件（因?yàn)槲覀兊目丶赡芟蚨鄠€(gè)控件注冊(cè)了消息）是LinkLabel，那么我們就設(shè)定LinkLabel屬性不指向任何控件。
（3）覆蓋父類的Change調(diào)度方法。在此方法里為連接的LinkLabel的Caption賦值就達(dá)到我們的目的了。
思考題：
1、做一個(gè)Label控件，給它增加一個(gè)DataSource屬性，該屬性可以指向一個(gè)TdataSource類型的控件，它有一個(gè)GetRecordCount方法。當(dāng)調(diào)用此方法時(shí)，就在Label控件中顯示這個(gè)DataSource對(duì)應(yīng)的數(shù)據(jù)集中的記錄的條數(shù)。