如何OverRide控件如何的OnClick事件. (0分)

我想继承TCustomLabel类，建个控件TNewLabel。
如何继承OnClick（在TControl类定义）事件。

如何在Click TNewLabel时执行一些代码，并保留TNewLabel的OnClick事件。


谢谢，分不多了。

重载Click方法。
procedure Click; override;

{你的方法}
Inherrited;

这样可以吧。

to: guqs
你好。
我的代码如下：
请指教。

其实你的问题有很多人能回答，但没有分，是不易让人帮你的。
代码如下：

type
TMyLabel=Class(TCustomLabel)
protected
procedure Click; Override;
end;

TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
Label1: TMyLabel;
public
{ Public declarations }
procedure myLabelClick(Sender:Tobject);
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

{ MyLabel }

procedure TMyLabel.Click;
begin
showMessage('MyLableClick'); //你要执行的代码
inherited;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Label1:=TMyLabel.Create(Self);
Label1.Parent:=Self;
Label1.Left:=30;
Label1.Top:=30;
Label1.Caption:='test';
Label1.OnClick:=myLabelClick;
end;

procedure TForm1.myLabelClick(Sender:Tobject);
begin
ShowMessage('onClick'); //onClick事件中的代码
end;

接受答案了.