怎么创建自己的控件（在线等待，立刻给分）

Question

我想通过继承Timage来创建一个自己的按钮控件不知道该怎么写代码component->new component后
unit QuickButton;interfaceuses
  Windows, Messages, SysUtils, Classes, Controls, ExtCtrls;
  
type
  TQuickButton = class(TImage)
  private
    { Private declarations }
  protected
    { Protected declarations }
    procedure OnClick(picName: String);
  public
    { Public declarations }
  published
    { Published declarations }
  end;procedure Register;implementationprocedure Register;
begin
  RegisterComponents('Standard', [TQuickButton]);
end;procedure Click(picName: String);
begin
//
end;end.install后显示：unsatisfied forward external declaration: 'TQuickButton.Onclick'请教各位高手，如何创建？？

Answer 1

过程'TQuickButton.Onclick'没有实现啊！
procedure TQuickButton.OnClick(picName: String);
...

Answer 2

UP，是你类的click，你那样实现就只是一个普通的不属于这个类的过程，按上边说的做

Answer 3

建议看看delphi自带的vcl源码，先对控件的写法有个大概的了解

Answer 4

还有为何我自己写的事件在event里面没有出现呢？

Answer 5

要Published
你这样写是不会出来的

Answer 6

type 
  TOnClick = prcedure(Sender: TObject);
type
  TQuickButton = class(TImage)
  ....
  private
   FOnclick: TOnclick;
  published 
     property Onclick: TOnclick read FOnclick write FOnclick;///要这样执行事件里的代码如下：
  if Assigned(FOnclick) then Fonclick(Self);