Heredar eventos de un Edit.

[[maeyanes]]

Hola...

Esto que mencionas lo puedes hacer de dos formas...

Uno, puedes redefinir el método que dispara el evento, que en el TEdit es Change:

Código Delphi [-]
TIpEdit = class(TEdit)
protected
  procedure Change; override;
end;

implementation

procedure TIpEdit.Change;
begin
  // Código que quieres implementar
  inherited // Mandamos llamar el método heredado para que se dispare
              // correctamente el evento OnChange
end;

La forma en que lo quieres hacer, tendrías que crear un método en tu clase que tenga como parámetro Sender: TObject:

Código Delphi [-]
constructor TIpEdit.Create(AOwner: TComponent);
begin
  inherited;
  // Asignas el manejador de evento al evento OnChange
  OnChange = Changed
end;

procedure TIpEdit.Changed(Sender: TObject);
begin
  // Lo que desees hacer
end;

El lado malo de esta última forma es que si en tiempo de diseño asignan un manejador de eventos para OnChange, se perdería el que estableciste al momento de crear el componente.


Saludos...