四、对特定字符串敏感的 Edit 控件
我们这个控件将演示控件的自定义事件的书写。这个控件有一个类型为 string SensitiveText 属性,当用户在输入框中输入的文字为 InvalidText 时就会触发 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 属性的添加方法大家已经熟悉了,这里不多解释。
2 )、正如大家猜测的, Change 方法正是编辑框文字发生变化时的调度方法,它将引起 OnChange 事件。我们可以在这个方法中监控编辑框文字发生的变化,当文字等于 SensitiveText 就触发 OnSensitiveText 事件(具体的实现方法在后边解释)。
3 )、 Delphi 中的控件的事件机制是通过方法指针来实现的。声明方法指针的格式为:
方法指针名称 = procedure( 参数列表 ) of object;
声明事件属性的方法与声明普通属性的方法相同。在我们这个例子中,我们首先声明一个 FOnSensitiveText: TSensitiveTextEvent; 私有变量,然后 property OnSensitiveText: TSensitiveTextEvent read FOnSensitiveText write FOnSensitiveText; 声明事件属性。这样注册控件后,当用户把控件放到窗体中后,就会在 Object Inspector Evnets 页中出现 OnSensitiveText 事件,我们就可以像使用其他事件一样使用这个事件了。
  但是我们现在只是声明了一个事件属性,并没有书写任何代码来激发这个事件。我们应该在合适的时候激发此事件,显而易见我们应该在 Change 方法中激发此事件:
procedure TTextSenseEdit.Change;
begin
  inherited;
  if Text = SensitiveText then
    if Assigned(OnSensitiveText) then
      OnSensitiveText(Text);
end;
if Text = SensitiveText 时就判断控件使用者是否为 OnSetSensitiveText 写代码了(准确的说是是否为 OnSetSensitiveText 事件句柄赋值了),如果写代码了则调用 OnSetSensitiveText(Text); 来激发 OnSetSensitiveText 事件,并把控件的 Text 传递给方法的 Avalue 参数。正如“方法指针”这个名字一样,被声明为方法指针类型的变量可以当作方法使用,用来激发事件。 VCL 已经为我们预定义了一些常用的事件句柄,我们直接拿来使用: TnotifyEvent TmouseEvent TmouseMoveEvent TkeyPressEvent 等,具体可以参考 VCL 源码。
思考题:
1 、做一个支持累加运算的文本编辑框控件,用户可以在编辑框中输入正整数。当用户按回车时,如果编辑框中输入的不是正整数(为负数、小数或一般字符串)则触发控件的 OnError 事件;如果输入的是正整数,则开始计算从 1 到用户输入的那个正整数中所有整数的和(用 1 2 3+ ……这种累加的办法实现,不要用 (1+n)*n/2 这种直接计算的方法),并且在计算工程中如果发现计算的中间结果位数是 5 ,则触发 OnTailFive 事件。