怎么扩展一个控件的onclick事件

Question

我想写一个控件,从TLabel继承,实现点击控件访问一个网址。TLabel已经有一个onclick事件，我该怎么扩展它呢？

Answer 1

procedure Click; override;
begin
  inherited
 //实现点击控件访问一个网址 實現代碼
end;

Answer 2

type
  TLabelEx = class (TLabel)
  public
    .....
    procedure Click; override;
  published
    property OnClick;
  end;procedure TLabelEx.Click;
begin
  inherited
  // 自己实现吧 hehe^^
end;