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