Eventos de un componente...

[pedrohdez]

Hola Craven,

Te cuento el proceso, primero mira en la ayuda el evento que quieres "retocar" a ver en que objeto esta declarado, en el caso de OnChange esta definido en TCustomEdit, asi que me voy al fuente correspondiente y localizo donde se usa, en este caso TCustomEdit.Change y veo que esta declarado como Dynamic, es decir se puede heredar, perfecto, pues la solucion es:

TMiControl = Class (TEdit)
protected
procedure Change; override;
..
Implementation

procedure TMiControl.Change;
begin
  < tu codigo >
  inherited;
  < tu codigo >
end;

Puedes elegir si quieres que tu codigo se ejecute antes o despues del codigo original o incluso si no quieres que se ejecute, quitas el inherited y listo.