Ver Mensaje Individual
  #1  
Antiguo 05-06-2003
craven craven is offline
Miembro
 
Registrado: may 2003
Posts: 78
Reputación: 22
craven Va por buen camino
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
Responder Con Cita