四、对特定字符串敏感的
Edit
控件
我们这个控件将演示控件的自定义事件的书写。这个控件有一个类型为
string
的
SensitiveText
属性,当用户在输入框中输入的文字为
InvalidText
时就会触发
OnSensitiveText
事件。按照惯例,我先把源码展示给大家:
unit TextSenseEdit;
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />
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
事件。
转载于:https://blog.51cto.com/cownew/87635