Ayuda para sobreescribir property

[Egroc]

Hola jachguate:

Pues es exactamente eso lo que prentendía, es decir, poder enviar a una función un TCanvas normal o el mío de forma que pinte sobre el correspondiente canvas.

La solución que propones no es mala, pero requiere que la función en cuestión "analize" y sepa el tipo del objeto. Mi intención es no hacer esto, es decir, que la función pinte sin más sobre el objeto y que en caso de ser el mío, sean mis propiedades las que son llamadas.

Estoy haciendo pruebas y si mando mi objeto TMyCanvas a alguna función las propiedades que llama son las del ancestro. Y si intento hacer algo como:
"(MyCanvas as TCanvas).Pen" Las propiedades que llama son las mías pese al cast. Por eso estoy liado...

¿Es entonces inviable lo que pretendo?. Gracias por las respuesta jachguate, me ha servido para avanzar en el problema.

Saludos!

[[Al González]]

¡Hola a todos!

Empezado por Egroc

..."(MyCanvas as TCanvas).Pen" Las propiedades que llama son las mías pese al cast...

Tengo mis dudas al respecto.

Empezado por Egroc

...¿Es entonces inviable lo que pretendo?...

Por la forma en que están estructuradas esas propiedades en la clase TCanvas de Delphi 7 (los campos donde se almacenan son privados, no tienen métodos de lectura virtuales, los métodos de escritura no sobrescriben el objeto interno, a diferencia de otras clases no hay un método virtual para crear o indicar la clase de sub objeto que queremos), es inviable sin recurrir al viejo y poco recomendable truco de molde de acceso a campos privados.

Tal vez si nos detallas más tu caso podamos orientarte hacia una solución óptima.

Un abrazo al óleo.

Al González.