FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
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.
__________________
craven |
|
|
|