QrImage控件缘何没有事件？如何添加事件。（瓦匠泥急）

Question

没办法了只有重新派生一个新的了。贴出来算了我没好办法大家有的话我可以再接受先这样子算了。。
unit QRImage1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  QuickRpt, Qrctrls;type
  TQRImage1 = class(TQRImage)
  private
    
    { Private declarations }  protected
    { Protected declarations }
  public
    procedure About(str: string);
    constructor Create(AOwner: TComponent);    
    //procedure OnClick(Sender: TObject);message WM_PAINT;
    { Public declarations }
  published
    property OnClick;
    { Published declarations }
  end;
procedure Register;implementationprocedure TQRImage1.About(str: string);
begin
  ShowMessage('This is ' + str);
end;procedure Register;
begin
  RegisterComponents('Nizvoo', [TQRImage1]);
end;
constructor TQRImage1.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  ShowMessage('ok');
end;end.

Answer 1

最简单的一段。只要一句话。
unit myQRImage;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  QuickRpt, Qrctrls;type
  TmyQRImage = class(TQRImage)
  private
    { Private declarations }
  protected
    { Protected declarations }
  public
    { Public declarations }
  published
    property OnClick; //加入这句话就可以了
    { Published declarations }
  end;procedure Register;implementationprocedure Register;
begin
  RegisterComponents('User', [TmyQRImage]);
end;end.