Hola...
Ya se ha hablado en alguna ocasión sobre esto en los foros. Básicamente lo que tienes que hacer es declarar una variable del tipo
TNotifyEvent en tu componente. En esta variable guardas lo que tenga asociado el evento
OnClick del control.
Algo así:
Código Delphi
[-]
TMyComponent = class
private
FOldOnClick: TNotifyEvent;
procedure ControlClick(Sender: TObject);
protected
procedure Loaded; override;
end;
implementation
procedure TMyComponent.ControlClick(Sender: TObject);
begin
if Assigned(FOldOnClick) then
FOldOnClick(Sender)
end;
procedure TMyComponent.Loaded;
begin
inherited;
if not (csDesigning in ComponentState) and Assigned(FControl) then
begin
FOldOnClick := FControl.OnClick;
FControl.OnClick := ControlClick
end
end;
Saludos...