Ver Mensaje Individual
  #5  
Antiguo 09-06-2008
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - Espańa
Posts: 19.440
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
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...
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita