Проблема в следующем. Имеется два класса (компоненты) потомки от TGraphicControl:
Код:
TComponentA = class(TGraphicControl)
....
protected
procedure Paint(); override;
...
end;
TComponentB = class(TGraphicControl)
....
protected
procedure Paint(); override;
...
end;
процедуры рисования полностью перекрыты, т.е. не вызываются inherited процедуры предка. Эти компоненты вставлены во внутрь трьетьего:
Код:
TComponentС = class(TPanel)
....
private
FCompA:TComponentA;
FCompB:TComponentB;
...
public
constructor Create(AOwner: TComponent); override;
...
end;
constructor TComponentС.Create(AOwner: TComponent);
begin
FCompA = TCompA.Create(self);
FCompA.Parent = self;
FCompA.SubComponent(true);
...
FCompB = TCompB.Create(self);
FCompB.Parent = self;
FCompB.SubComponent(true);
end;
Получается какая-то мистика в ДФМ-файле. Один компонент пишется нормально, т.е. как СабКомпонент. А вот второй почему-то пишется аж 2 раза - первый раз как субкомпонент, а второй - как объекту внутри TPanel. Какие будут соображения?