Componente que ejecute un evento de un componente asociado

[[maeyanes]]

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
  // Codigo a ejectuar
  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...