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

[[José Luis Garcí]]

Maeyanes no e podido probar el codigo ya que me da un error en la linea

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

ÇPero por lo que veo y lo que me comentas supongo tengas razón, perdona que tarde entre respuesta y respuesta pero es que donde programo no tiene enlace a internet. Gracias mil de todas manaeras por tu ayuda

[[maeyanes]]

Cual es el error que te da?


Saludos...

[[basti]]

No deberías llamar al procedimiento ShadowDraw desde el Create, es posible que no se hayan cargado todos los controles en el formulario, por eso no te muestra los cambios al ejecutar hasta que cambias una propiedad y vuelves a llamar a ShadowDraw. Además es posible que el error de Access Violation venga también de ahí.

Prueba a sobreescribir el procedimiento Loaded, que se ejecuta una vez se ha cargado el form.

Código Delphi [-]
  protected
    { Protected declarations }
    procedure Loaded; override;
.
.
.
  procedure TCCDShadow.Loaded;
  begin
     ShadowDraw;
  end;

[[maeyanes]]

Hola...

Empezado por basti

No deberías llamar al procedimiento ShadowDraw desde el Create, es posible que no se hayan cargado todos los controles en el formulario, por eso no te muestra los cambios al ejecutar hasta que cambias una propiedad y vuelves a llamar a ShadowDraw. Además es posible que el error de Access Violation venga también de ahí.

Prueba a sobreescribir el procedimiento Loaded, que se ejecuta una vez se ha cargado el form.

Solo una pequeña corrección...

Código Delphi [-]
  protected
    { Protected declarations }
    procedure Loaded; override;
.
.
.
  procedure TCCDShadow.Loaded;
  begin
    inherited;
    ShadowDraw;
  end;

[[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.