FastReport VCL是用于 Delphi、C++ Builder、RAD Studio 和 Lazarus 的报告和文档创建 VCL 库。它提供了可视化模板设计器,可以访问 30 多种格式,并可以部署到云、网站、电子邮件和打印中。
立即点击下载FastReport VCL v6.9最新版
如果需要定义一个不属于基本类的新事件处理程序,应该怎么做?让我们以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);
beg