Ver Mensaje Individual
  #2  
Antiguo 15-09-2010
[coso] coso is offline
Miembro Premium
 
Registrado: may 2008
Ubicación: Girona
Posts: 1.678
Reputación: 0
coso Va por buen camino
Hola, si es posible. Una manera es redeclarandola y leyendo/ escribiendo sus valores asi:

Código Delphi [-]

published 
   property Width : integer read GetWidth write SetWidth;

...

function TMiComponente.GetWidth : integer;
begin
       result := inherited Width;
end;

procedure TMiComponente.SetWidth(W : integer);
begin
     Width_Modificado := true;
     inherited Width := W;
end;

...algo asi. La otra manera es que en muchas propiedades, los metodos Get y Set ya existen, por lo tanto tansolo tienes que hacer override de SetWidth en el caso que exista en el TImage (cosa que no recuerdo)

Código Delphi [-]
   ...
   protected
    procedure SetWidth(Width : integer); override; 

...
procedure TMiComponente.SetWidth(Width : integer);
begin
   Width_Modificado := true;
   inherited SetWidth(Width);
end;

Consulta la ayuda mejor para saber si existe el método, y te ahorras trabajo. Otra cosa que te recomendaria seria heredar desde TCustomImage (en el caso que exista, cosa que ... tampoco recuerdo ) para asi simplificar propiedades publicadas, etc...
Un saludo y espero que te sirva.
Responder Con Cita