没办法了只有重新派生一个新的了。贴出来算了我没好办法大家有的话我可以再接受先这样子算了。。
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.
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.
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.