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
|