Usar eventos en un VCL

[Sonic]

Muchas gracias Lepe ya he mirado muchos manuales y creo haberlos entendido, lo que quiero hacer es algo parecido a lo que me comentas del override. Lo que en realidad quiero es que mi manejador de evento se ejecute siempre, ponga o no ponga el usuario uno propio, por eso hago el override pero al final en mi función (la propia) hago una llamada a la función del usuario.

Creo que en mi post anterior te puede quedar un poco más claro lo que quiero, no obstante cualquier alternativa es de considerar, a si que te agradecería que me explicaras un poco mejor lo del TFrame y el Component Template, pero te aviso que es impresindible que se pueda disponer de mi componente en la barra de herramientas.

Muchas Gracias

[__cadetill]

Aunque te ponga código Delphi espero que lo entiendas

El ejemplo muestra como lanzar (en un TDbGrid) el evento OnCellClick siempre (y si lo tiene, luego el del usuario).

Código Delphi [-]
  TExtendedGrid = class(TDbGrid)
  private
    FOldCellClick: TDBGridClickEvent;     // Evento antiguo de DBGridClick
  protected
    procedure ClicCelda(Column: TColumn);

    property OldCellClick: TDBGridClickEvent read FOldCellClick write FOldCellClick;
  public
    constructor Create(AOwner: TComponent); override;
  end;

implementation

constructor TExtendedGrid.Create(AOwner: TComponent);
begin
  inherited;

  if Assigned(OnCellClick) then
    OldCellClick := OnCellClick // si tiene, lo guardo
  else
    OldCellClick := nil;
  OnCellClick := ClicCelda; // le asigno mi procedimiento
end;

procedure TExtendedGrid.ClicCelda(Column: TColumn);
begin
  // Hago lo que sea..........

  // Si tenía evento asociado.... lo lanzo
  if Assigned(OldCellClick) then
    OldCellClick(Column);
end;

Espero te sirva