关于自定义控件的问题

Question

好办，将Image和Label的OnClick也设成myclick: image.onclick := myclick;
label.onclick := myclick;

Answer 1

不好意思,是我没有说清楚,那个类是这样定义的
type
  TWorkFlowNode = class(TPanel)
  private
    FLabel : TLabel;
    FImage : TImage;

Answer 2

property OnClick: TNotifyEvent read GetClick write SetClick;function GetClick: TNotifyEvent;
begin
  Result := inherited OnClick
end;procedure SetClick(Value: TNotifyEvent);
begin
  inherited OnClick := Value;
  FLabel.OnClick := Value;
  FImage.OnClick := Value;
end;