Problema en la creación de componente derivado de TEdit.

[dec]

Hola,

No estoy muy puesto, pero, me parece que podrías comprobar si el evento en cuestión está asignado, y, si lo está, "dispararlo", algo así como:

Código Delphi [-]
if Assigned(FOnChange) then
begin
  FOnChange(Self);
end;

Tendrás que probar a ver si no explota algo.

[Angel Fernández]

Gracias dec por tu respuesta.

Sin embargo, no me funciona. Salta el error de access violation at ......

Por lo visto, si escribo algo en el evento onchange, ya no se activa el nuevo onchange creado por mí.

Buf, seguiré investigando.

Un saludo.

[[maeyanes]]

Hola...

Te recomiendo que uses el método protegido Change del TEdit para hacer lo que quieres.

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

implementation

procedure TMyEdit.Change;
begin
  // Código propio
  inherited
end;

Saludos...

Edit.

Quité la referencia al hilo de Dec ya que el tema tratado en ese hilo era en realidad otro...

[Neftali [Germán.Estévez]]

El método Change que has colocado funciona perfectamente, pero te falta definir el inherited en el changed del componente (no en el evento).

Has sobreescrito (supongo) el método Changed en tu componente con la clausula override, así que si no llamas al inherited desde tu método perderás todo el código que se ejecuta en los predecesores(antecesores) de tu componente. En concreto en TCustomEdit.Change se lanza el evento OnChange, por lo tanto, al no colocar inherited en tu componente ese evento deja de funcionar.

Código Delphi [-]
procedure TColorEdit.Change;
begin
  inherited;

  if FMode = MOpenFile then
    if fileexists(text) then
    begin

   .....

EDITO: Veo que se me adelantaron...
Esto me pasa por no refrescar las ventanas...

[[maeyanes]]

Hola...

Neftali, solo que el método Change que colocó Angel Fernandez es en realidad un manejador de eventos, checa la firma del método: procedure TColorEdit.Change(Sender: TObject);. Claro que en tiempo de diseño al asignar el evento OnChange, se pierde la referencia al método especificado.


Saludos...

[Neftali [Germán.Estévez]]

Empezado por maeyanes

...solo que el método Change que colocó Angel Fernandez es en realidad un manejador de eventos, checa la firma del método: procedure TColorEdit.Change(Sender: TObject)

Gracias maeyanes.
No me había fijado en el parámtero y estaba suponiendo que ha sobreescrito el método cuando realmante no es así.

He ahí el error.

[Angel Fernández]

Gracias a todos.

Lo que me ha indicado maeyanes funciona perfectamente.

Lo subo por si a alguien le interesa o quiere utilizarlo como base para otra cosa.

Un saludo.