Что-то под ночь подтупливаю....
Нужна помощь....
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)