Control / reutilización de propiedades
 

Hola otra vez,

Estoy intentado crear un componente derivado de un TImage en D2010.

Lo del D2010 solo es para vuetra información porque en otros Delphis tampoco se hacerlo.

Lo que necesito es controlar en mi componente algunas de las propiedades heredadas del TImage.

Por ejemplo, como ya sabeis, el TImage tiene una propiedad Width, que hereda de algun ancestor, pero yo necesito conocer cuando esta propiedad cambia ¿es esto posible?

Sé que algunos métodos se pueden re-escribir con Overide e Inherited, pero desconozco si hay algo similar para las propiedades.

Una sonrisa :) para todos.

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 :D) para asi simplificar propiedades publicadas, etc...
Un saludo y espero que te sirva.

Muchas gracias Coso,

Voy a probarlo y pondré aquí los resultados.

Saludos.