Метод TWinControl отвечающий за "удочерение"

[SunKnight]

Собственно сабж.
Вот новый компонент.

unit ApexView;

interface

uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Apex;


type
  TApexView = class(TWinControl)
  private
    procedure Paint(var Message: TWMPaint); message WM_PAINT;
  protected

  public
    constructor Create(AOwner: TComponent);override;
    procedure AddApex;
  published
    { Published declarations }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Jango', [TApexView]);
end;

constructor TApexView.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
end;

procedure TApexView.Paint(var Message: TWMPaint);
var
  DC: THandle;
  PS: TPaintStruct;
begin
  if Message.DC = 0 then
    DC := BeginPaint(Handle, PS) else
      DC := Message.DC;
end;

procedure TApexView.AddApex;
var temp:TApex;//Класс унаследованный от TGraphicControl
begin
  temp:=TApex.Create(Self);
  temp.Parent:=Self;
  temp.Visible:=true;
  Temp.Show;
end;
end.

В общем, сторонние компонеты не удочеряются, не в design-time не в run-time. Как быть?

[Stilet]

сторонние компонеты не удочеряются

Пардон, как это "удочеряться"?

[raxp]

может через InsertControl() ?

...делаем компонент, на него chart, в нем панели

unit pgl;

interface

uses MMSystem,Windows,SysUtils,Messages,Classes,Graphics,ExtCtrls,controls,
     OpenGL,chart,series,TeEngine;

type
  Tpgl=class(TPanel)

  private
    ftimer     : Ttimer;
    FActive    : Boolean;
    FInterval  : Integer;
    Fgor,Fver  : Integer;
    fabout     : string;

    DC  : THandle;
    hrc : HGLRC;
    FViewGrid    : Boolean;
    FViewSectors : Boolean;
    FViewMetka   : Boolean;
    FViewTest    : boolean;
    FViewMas3D   : Boolean;
    FViewPlace3D : Boolean;
    FTestPlace3D : Boolean;
    FViewChart   : Boolean;
   
    function DoSelect(x,y: GLint): GLint;
    procedure SetProjection(Sender: TObject);
    procedure scrool(k: smallint; p: boolean);
    procedure BmpTexture;
    procedure texto(x,y: glfloat; t: string);
    procedure paintSectors;
    procedure SetViewSectors(const Value: Boolean);
    procedure paintGrid;
    procedure SetViewGrid(const Value: Boolean);
    procedure SetViewMetka(const Value: Boolean);    //дин объект
    procedure paintTXT;
    procedure SetViewAxisText(const Value: Boolean); //---
    procedure SetViewTest(const Value: Boolean);     //---
    procedure paintMas3D;
    procedure SetViewMas3D(const Value: Boolean);
    procedure paintPlace3D;
    procedure test_sinxx(const Value: Boolean);
    procedure SetViewPlace3D(const Value: Boolean);

    procedure SetViewChart(const Value: Boolean);
  protected
    procedure CreateDC;
   
    procedure WMKeyUp(var msg:TWMKeyUp);message WM_KEYUP;
    procedure WMKeyDown(var msg:TWMKeyDown);message WM_KEYDOWN;
    procedure WMPaint(var msg:TWMPaint);message WM_Paint;
    procedure WMSize(var msg:TWMSIZE);message WM_SIZE;
    procedure WMMouseWheel(var msg:TWMMouseWheel);message WM_MOUSEWHEEL;
    procedure WMMouseMove(var msg:TWMMouseMove);message WM_MouseMove;
    procedure WMMouseRDown(var msg:TWMLButtonDown);message WM_RButtonDown;
    procedure WMMouseRUp(var msg:TWMLButtonDown);message WM_RButtonUp;
    procedure WMMouseLUp(var msg:TWMLButtonUp);message WM_LButtonUp;
    procedure WMMouseLDown(var msg:TWMLButtonDown);message WM_LButtonDown;
  
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published

    property About             : string read Fabout write setabout;
    property OGL_Active        : boolean read FActive write setactive default False;
    property OGL_Timer_Interval: integer read FInterval write SetInterval default 100;

    property OGL_ViewGrid      : boolean read FViewGrid write SetViewGrid;
    property OGL_ViewSectors   : boolean read FViewSectors write SetViewSectors;
    property OGL_ViewMetka     : boolean read FViewMetka write SetViewMetka;
    property OGL_ViewAxisText  : boolean read FViewAxisText write SetViewAxisText;
    property OGL_ViewTest      : boolean read FViewTest write SetViewTest;
    property OGL_ViewMas3D     : boolean read FViewMas3D write SetViewMas3D;

  end;

 procedure Register; 

 var b: array of Tchart;
      prz: array of array of Tpanel;
implementation
{$R pgl.RES}

// МОДУЛЬ ---------------------------------------------------------------------
constructor Tpgl.Create(AOwner: TComponent);
var i   : integer;
    strm: TResourceStream;
begin
 inherited Create(aowner);
 //
 DoubleBuffered:= true;
 ...
 бла-бла-бла
 FViewChart:= true;
 setviewchart(FViewChart)
end;


procedure tpgl.SetViewChart(const value: boolean);
var i,z:integer;
begin
 FViewChart:= Value;
 if value then begin
  life:= false;

  for i:= low(b) to high(b) do try
   b[i].Destroy;
   for z:=0 to 33 do prz[z,i].Destroy;
   for z:=0 to 5 do prz_[z,i].Destroy
  except end;
  //
  setlength(b,fver*fgor);
  setlength(prz,34,fver*fgor);
  setlength(prz_,6,fver*fgor);
  for i:= low(b) to high(b) do try
   b[i]:= Tchart.Create(nil);

   //серии
   for z:=b[i].SeriesCount-1 downto 0 do
    begin b[i].Series[z].Destroy end;
   SuN:= TbarSeries.Create(self);
   b[i].AddSeries(SuN);

   //события
   with b[i] do begin
    бла-бла-бла
    //
    parent:= self;

    // FORMULAR ===============================================================
    for z:=0 to 33 do begin //индикаторы признаков-
     prz[z,i]:= Tpanel.Create(b[i]);
     бла-бла
     ...
     b[i].InsertControl(prz[z,i])
    end;

[russian-stalker]

Может;

windows.SetParent();

[SunKnight]

Все, я подумал что фтопку TWinControl и унаследовал от TCustomControl. Всем спасибо за внимание.