Componente que hay que activar en ejecucion, aunque se ve en fase diseño?

[[basti]]

Empezado por maeyanes

Solo una pequeña corrección...

Pequeña no, enorme...

[[Al González]]

¡Hola!

Agregaría que un método virtual redefinido que todo lo que hace es llamar a su versión heredada, es innecesario, como es el caso del destructor:

Código Delphi [-]
destructor TCCDShadow.Destroy();
begin
   inherited Destroy();
end;

Por otra parte, en el constructor, la sentencia

Código Delphi [-]
ParentForm:=TForm(AOwner);

asume que el parámetro AOwner es una forma (lo cual está bien para la mayoría de los casos, donde el objeto es agregado a una forma en tiempo de diseño), pero ¿qué tal si el objeto es instanciado en tiempo de ejecución enviándole como parámetro otro tipo de dueño, incluso un Nil? O bien, el objeto es insertado en tiempo de diseño en un módulo de datos.

Concuerdo en que no debe realizarse una operación de dibujo / despliegue desde el constructor. Es prematuro. Loaded se ejecuta cuando ya toda la forma y sus componentes han sido cargados y están listos para la acción (aunque tomando en cuenta que aún no están visibles).

Un abrazo compuesto.

Al González.

[[maeyanes]]

Lo del destructor Destroy se lo eliminé del código de ejemplo que le puse. Sobre el Loaded, lo pensé pero por alguna razón no lo puse xDDDD


Saludos...

[[José Luis Garcí]]

Siento la tardanza en responder, pero acabo de llegar a casa, vamos por parte Maeyes el error que me da, es

Código Delphi [-]
Undeclared identifier AOwner

en tiempo de compilación.

Voy a probar los cambios propuestos y notifico en lo que quede.

[[José Luis Garcí]]

Probado de nuevo, cmabiando la parte

Código Delphi [-]
ParentForm:=TForm(AOwner);

que me sigue dando el mismo error
por

Código Delphi [-]
ParentForm:=TForm(nil);

que es lo que entendi, que comentaba Al González, (disculpas si lo entendi mal), logro que se compile, pero la demo ya creada da un error de acces y si creo una nueva, cuando intento aportar el componente, no se arrastra hasta el formulario.

[[maeyanes]]

Ya vi cual es el error xDDDD

En donde dice:

Código Delphi [-]
ParentForm := TForm(AOwmer;

debe decir:

Código Delphi [-]
ParentForm := TForm(AOwner;

Si te fijas, puse una m en lugar de una n...


Saludos...

[[José Luis Garcí]]

Me di cuenta hace unos minutos y lo corregi, pero sigue pasando que , no se ve hasta que tocas alguna propiedad del componente, ni en diseño, ni en ejecucion, y ene ejecucion cuando sales da un error de

Exeption EAccessViolation in module demo,

Te agradesco la ayuda, ya que cada vez me doy más cuenta de que esta camisa me parece ir muy grande aún, pero no me gusta dejar as cosas amedias y nose si sera un componente, util, curioso, y vistoso, pero me gustaria terminarlo, ya que es base de aprendizaje, para otros que tengo en mente. Hace años que no programaba, y no megustaria dejarlo de nuevo, aunque he de confesar una cosa sigo acordando más de mis años de Dbase, Clipper y el poquito de turbo C.