如果事件处理程序不属于基类的话,如何定义一个新的事件处理程序呢?本文中就以“TfrxEditControl”常用控件为例来看看如何定义一个新的事件处理程序。
TfrxEditControl = class(TfrxDialogControl)
private
FEdit: TEdit;
{ new event }
FOnChange: TfrxNotifyEvent;
procedure DoOnChange(Sender: TObject);
...
public
constructor Create(AOwner: TComponent); override;
...
published
{ new event }
property OnChange: TfrxNotifyEvent read FOnChange write FOnChange;
...
end;
constructor TfrxEditControl.Create(AOwner: TComponent);
begin
...
{ connect our handler }
FEdit.OnChange := DoOnChange;
InitControl(FEdit);
...
end;
procedure TfrxEditControl.DoOnChange(Sender: TObject);
begin
{ call event handler }
if Report <> nil then
Report.DoNotifyEvent(Sender, FOnChange);
end;
值得注意的是,FastReport VCL报表中的事件处理程序是一个定义在报表脚本中的程序。TfrxNotifyEvent类型被声明为String[63],在FastReport VCL中,链接事件处理程序的是一个包含名称的字符串。