组件中的事件问题

Question

我做了一个组件,也添加了一些事件,但这些事件在写入代码之后却不能运行.也许是我的添加方法不对.我是这样加的
......
published
property onclick;
.......
是不是错了
请大家给予指点.
谢谢

Answer 1

如果你想让你的组件的CLICK事件中做点默认的操作的话。可以这样。
 protected
   procedure Click;override;
...procedure YOUrCLass.Click;
begin
   showmessage('aaa');
  inherited ;//继续操作。。
end;

Answer 2

if  你的组件继承自TControl 那你做的已经是Ok了哦.
if 你的组件的父类没要ONclick 那么这样
以下来自<<delphi 5 开发人员指南>>TmyControl=class(Tcomponent)
   private
      FonClick:TNotifyEvent;
  protected
      procedure DoClick;dynamic;
      property OnClick:TnotifyEvent read FonClick write Fonclick;
 end;procedure TMycontrol.Doclick;
begin
  if assigned(Fonclick) then Fonclick(self);
end;然后你要写WM_LBUTTONDOWN消息函数,在其中调用DoClick;