我通过继承于TLabel创建了一个组件TMyPanel,现在想在TMyPaenl的onClick事件中作一个预定的处理，如何操作？(100分)

Y

ynfly

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-10

• #1

我通过继承于TLabel创建了一个组件TMyPanel,现在想在TMyPanel的onClick事件中作
一个预定的处理，比如每次使用TMyPanel控件时，点击TMyPanel上的文字时，就会执行
showmessage('hello,world')?具体如何实现

 

星

星语心愿

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-10

• #2

TLabel的父类TControl中有一个方法：
procedure Click; dynamic;
在这里调用用户定义的Click事件，你重载这个方法，加上你的代码就可以了：
procedure Click; override;
procedure TTest.Click;
begin
ShowMessage('hello');
inherited;
end;

 

Y

ynfly

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-20

• #3

好人，谢谢你