Ver Mensaje Individual
  #5  
Antiguo 06-06-2003
bitERROR bitERROR is offline
No confirmado
 
Registrado: may 2003
Posts: 33
Reputación: 0
bitERROR Va por buen camino
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;
La claúsula override, al final de la declaración, se utiliza para poder acceder a un método heredado para modificarlo ó sobreescribirlo según las necesidades, en este caso es el método Create que viene del TGraphicControl (y que a su vez hereda del TControl y más a su vez hereda del TComponent).

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)
public
  constructor Create(AOwner: TComponent); override;
  .
  .
end;

.
.

implementation

procedure TControl1.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  .
  .
end;
Así, el inherited ejecutará el Create del TGraphicControl y el TGraphicControl ya ejecutará los create de sus antecesores.

Un xaludo
Responder Con Cita