Control que crea control
Hola amigos. A ver si me podeis ayudar. Intentaré explicarme lo mejor posible. Veamos... He diseñado un control (TControl1) derivado de TGraphicControl que contiene unas propiedades, métodos, ... Pues bien, una de las propiedades es una lista de controles (TControl2), tambien diseñados por mí mismo, y derivada a su vez de TGraphicControl. El problema que tengo es que, en el primer control que os comentaba, hay un método que crea un control de tipo TControl2... En el constructor de la clase, ¿qué OWNER le paso? Esto es:
TControl2 = class (TGraphicControl) private .... .... public constructor create (AOwner: TComponent) ; override ; .... .... end ; TControl1 = class (TGraphicControl) private ... controles : TControl2 ; ... public constructor create (AOwner: TComponent) ; override ; ... procedure crearOtro ( ... ) ; ... end ; ... ... ... implementation .... .... .... procedure TControl1.crearOtro (...) ; begin controles := TControl2.create ( ¿?¿?¿?¿?¿? ) ; end ; Gracias de antemano y un saludo para todos. |
Hola,
pues puedes pasarle Self para que tu componente de tipo TControl1 sea su dueño o puedes pasarle Owner para que el dueño sea el mismo que el del control que lo crea. De hecho incluso puedes pasarle nil siempre que en el destructor de la clase TControl1 te acuerdes de liberarlo. Yo le podnría Self. :) Saludos. |
Ante todo, gracias. Lo que me has dicho ya lo he probado, pero me da el siguiente error: EInvalidOperation with message 'Control' "has no parent window"... ¿Qué piensas que puede pasar?
|
Ups, ya veo :)
dado que TControl2 es un derivado de TGraphicControl, tienes que asignarle un parent, es decir, un objeto que contenga visualmente el objeto Controles.Parent:= Self; Creo que con esto te bastará. Saludos. |
Si sabes lo que es el override y el inherited, lo que te escribo aquí no te ayudará. De todos modos revisa que hayas incluido el inherited en tus dos controles, que creo que debe ser la causa de tu problema.
Esta es la declaración de los constructor de cada uno de tus controles (TControl1 y TControl2) Código:
constructor create (AOwner: TComponent); override; El problema es que tu estás sobreescribiendo el método heredado (en ocasiones interesa, pero en tu caso no), es decir, haces el Create de tu componente pero no haces el Create de su antecesor, TGraphicControl, y a su vez impides que se hagan los Create que hereda el TGraphicControl y que deben estar asignando el Parent que te falta. Para que se ejecute el Create del componente del que heredas, TGraphicControl, deberías implementar los Create de tu TControl1 y TControl2, incluyendo la sentencia inherited. es decir ... asín Código:
type TControl1 = class(TGraphicControl) Un xaludo :p |
Solo que en el caso de los constructores, estos no son virtuales, por lo que no hay que poner override en su declaración.
Siempre, lo normal, dentro del constructor es llamar a un constructor de la clase padre, que a su vez llamará a otro de su ancestro y así hasta llegar al constructor de TObject, que es el que hace la reserva y la inicialización de memoria. Podes hacer algo como: Código:
Type Lo normal luego, es hacer algo como: Código:
Constructor MiClase.Create(Parametro1, Parametro2 : Tipo); Es una convención llamar al constructor Create, pero no es necesario.... lo podes llamar como querras. En realidad, también al destructor, pero insisto, si lo vas a integrar a la VCL, también debes llamarlo Destroy. Hasta luego. ;) |
La franja horaria es GMT +2. Ahora son las 10:28:56. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi