?
四、對特定字符串敏感的Edit控件
我們這個(gè)控件將演示控件的自定義事件的書寫。這個(gè)控件有一個(gè)類型為string的SensitiveText屬性，當(dāng)用戶在輸入框中輸入的文字為InvalidText時(shí)就會(huì)觸發(fā)OnSensitiveText事件。按照慣例，我先把源碼展示給大家：
unit TextSenseEdit;
?
interface
?
uses
? SysUtils, Classes, Controls, StdCtrls;
type
? TSensitiveTextEvent = procedure(AText: string) of object;//方法指針
? TTextSenseEdit = class(TEdit)
? private
??? FSensitiveText: string;
??? FOnSensitiveText: TSensitiveTextEvent;
??? procedure SetSensitiveText(AValue: string);
? protected
??? procedure Change;override;
? public
? published
??? property SensitiveText: string read FSensitiveText write SetSensitiveText;
??? property OnSensitiveText: TSensitiveTextEvent read FOnSensitiveText write FOnSensitiveText;
? end;
?
procedure Register;
?
implementation
?
procedure Register;
begin
? RegisterComponents('Linco', [TTextSenseEdit]);
end;
procedure TTextSenseEdit.Change;
begin
? inherited;
? if Text = SensitiveText then
??? if Assigned(OnSensitiveText) then
????? OnSensitiveText(Text);
end;
?
procedure TTextSenseEdit.SetSensitiveText(AValue: string);
begin
? FSensitiveText := AValue;
end;
end.
代碼解釋：
（1）、SensitiveText屬性的添加方法大家已經(jīng)熟悉了，這里不多解釋。
（2）、正如大家猜測的，Change方法正是編輯框文字發(fā)生變化時(shí)的調(diào)度方法，它將引起OnChange事件。我們可以在這個(gè)方法中監(jiān)控編輯框文字發(fā)生的變化，當(dāng)文字等于SensitiveText就觸發(fā)OnSensitiveText事件（具體的實(shí)現(xiàn)方法在后邊解釋）。
（3）、Delphi中的控件的事件機(jī)制是通過方法指針來實(shí)現(xiàn)的。聲明方法指針的格式為：
方法指針名稱 = procedure(參數(shù)列表) of object;
聲明事件屬性的方法與聲明普通屬性的方法相同。在我們這個(gè)例子中，我們首先聲明一個(gè)FOnSensitiveText: TSensitiveTextEvent;私有變量，然后property OnSensitiveText: TSensitiveTextEvent read FOnSensitiveText write FOnSensitiveText; 聲明事件屬性。這樣注冊控件后，當(dāng)用戶把控件放到窗體中后，就會(huì)在Object Inspector中Evnets頁中出現(xiàn)OnSensitiveText事件，我們就可以像使用其他事件一樣使用這個(gè)事件了。
? 但是我們現(xiàn)在只是聲明了一個(gè)事件屬性，并沒有書寫任何代碼來激發(fā)這個(gè)事件。我們應(yīng)該在合適的時(shí)候激發(fā)此事件，顯而易見我們應(yīng)該在Change方法中激發(fā)此事件：
procedure TTextSenseEdit.Change;
begin
? inherited;
? if Text = SensitiveText then
??? if Assigned(OnSensitiveText) then
????? OnSensitiveText(Text);
end;
當(dāng)if Text = SensitiveText時(shí)就判斷控件使用者是否為OnSetSensitiveText寫代碼了（準(zhǔn)確的說是是否為OnSetSensitiveText事件句柄賦值了），如果寫代碼了則調(diào)用OnSetSensitiveText(Text);來激發(fā)OnSetSensitiveText事件，并把控件的Text傳遞給方法的Avalue參數(shù)。正如“方法指針”這個(gè)名字一樣，被聲明為方法指針類型的變量可以當(dāng)作方法使用，用來激發(fā)事件。VCL已經(jīng)為我們預(yù)定義了一些常用的事件句柄，我們直接拿來使用：TnotifyEvent，TmouseEvent，TmouseMoveEvent，TkeyPressEvent等，具體可以參考VCL源碼。
思考題：
1、做一個(gè)支持累加運(yùn)算的文本編輯框控件，用戶可以在編輯框中輸入正整數(shù)。當(dāng)用戶按回車時(shí)，如果編輯框中輸入的不是正整數(shù)（為負(fù)數(shù)、小數(shù)或一般字符串）則觸發(fā)控件的OnError事件；如果輸入的是正整數(shù)，則開始計(jì)算從1到用戶輸入的那個(gè)正整數(shù)中所有整數(shù)的和（用1＋2＋3+……這種累加的辦法實(shí)現(xiàn)，不要用(1+n)*n/2這種直接計(jì)算的方法），并且在計(jì)算工程中如果發(fā)現(xiàn)計(jì)算的中間結(jié)果位數(shù)是5，則觸發(fā)OnTailFive事件。