Нужна помощь , Компоненты и классы

[Sherman]

Что-то под ночь подтупливаю....
Нужна помощь....

PHP код:

unit uMain;

interface

uses
  VirtualTrees,
  uBaseListTreeView, uBaseListView, 
  acAlphaImageList;

type
  // HACK класса
  // Тут я перекрываю класс TVirtualStringTree своим объявленным в uBaseListTreeView
  TVirtualStringTree = class (uBaseListTreeView.TBaseListTreeView) 


описание в uBaseListTreeView:

PHP код:

unit uBaseListTreeView;

interface

uses
VirtualTrees;

type
  TBaseListTreeView = class(TVirtualStringTree) 


Все хорошо, но понадобилось добавить на форму тот же компонент, но перекрыть его классом , объявленным в uBaseListView

Как это лучше сделать, что то правда - туплю???

update...

Эксперименты с вариантом:

PHP код:

type
  TMainForm = class(TForm)
    Panel1: TPanel;
    Splitter1: TSplitter;
    TreeImageList: TsAlphaImageList;
    Panel2: TPanel;
    Panel3: TPanel;
    BaseListTree : uBaseListTreeView.TVirtualStringTree;
    BaseList : uBaseListView.TVirtualStringTree;
    Button1: TButton;
    Button2: TButton; 


Провалились
BaseList - потомок uBaseListTreeView.TVirtualStringTree и никак не хочет быть потомком uBaseListView.TVirtualStringTree

update...

Вобщем, пошел по пути наименьшего сопротивления и выход нашел в переопределении еще одного компонента... по типу:

PHP код:

type
  TVirtualStringTree = class(TBaseListTreeView);
type
  TVirtualDrawTree = class(TBaseListView);

type
  TMainForm = class(TForm)
    BaseListTree: TVirtualStringTree;
    BaseList: TVirtualDrawTree;

unit uBaseListTreeView;
type
  TBaseListTreeView = class(TVirtualStringTree)

unit uBaseListView;
type
  TBaseListView = class(TVirtualStringTree)