Ayuda para sobreescribir property

[jachguate]

No tengo muy claro que es lo que pretendes conseguir con esto, pero creo que hace falta aclarar que no existe tal cosa como las "propiedades virtuales".

Es decir, podes crear una nueva clase TMyCanvas, que use TMyPen y TMyBrush en dos nuevas propiedades Pen y Brush, simplemente ocultando las propiedades de la clase ancestro con las tuyas, creando y destruyendo las instancias de TMyPen y TmyBrush de la manera usual. Si tenes una función o procedimiento donde queres usar las nuevas propiedades Pen y Brush si se trata de un TMyCanvas, tendrás que hacer la diferencia, pues si accedes con un molde "ancestro", serán las propiedades del ancestro las que accederás.

Seguramente me explico mejor con un ejemplo... suponiendo que lo dicho anteriormente ya está implementado:

Código Delphi [-]
procedure Prueba(canvas : TCanvas);
var
  mycanvas : TMyCanvas;
begin
  if canvas is TMyCanvas then
  begin
    mycanvas := TMyCanvas(canvas);
    myCanvas.pen.color := clBlack; //este es TMyPen
    canvas.pen.color := clRed; //este es TPen, pues uso el molde "TCanvas".
  end
  else begin
    mycanvas.pen.color := clRed; //este es TPen, pues no hay otro 
  end;
end;

Hasta luego.