[nicht]

Привет, форумчане! Помогите, пожалуйста. Проблема вот в чем. Есть компонент, который содержит субкомпоненты TParChild, к нему прикрутил TComParEditor = class(TComponentEditor). При создании субкомпонент в design-time с помощью TComParEditor все нормально. Только в run-time все созданные ранее субкомпоненты не создаются. Ниже представляю код:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195

Unit ComPar; ... ******************************* TParChild = class(TComponent) ... *********************************** TParChildClass = class of TParChild;   TChildList = class(Tlist) ...   ***************************** TComPar = class(TCustomPanel) FChildList: TChildList; ... property ChildList: TChildList read FChildList; ...   var    ParClassRegister: TStringList; ...   initialization   ParClassRegister:= TStringList.Create;   finalization   ParClassRegister.Free;   end. ********************************** **********************************   unit ComParEditor;   ...   type     TComParEditor = class (TComponentEditor)   public     procedure Edit; override;   end;     TParEditorForm = class(TForm)     ToolBar1: TToolBar;     tbAdd: TToolButton;     tbDel: TToolButton;     tbUp: TToolButton;     tbDown: TToolButton;     ParBox: TListBox;     MAddItem: TPopupMenu;     procedure FormCreate(Sender: TObject);       procedure miAddClick(Sender: TObject);     procedure tbDelClick(Sender: TObject);     procedure ParBoxClick(Sender: TObject);   private     { Private declarations }     FPar: TComPar;     FDesigner: IDesigner;     procedure AddSubcomponentClass(const ACaption: String; ATag: Integer);     procedure EnumerateSubcomponentClasses;     function MakeSubcomponent(AOwner: TComponent; ATag: Integer): TComponent;     procedure Refreshlist;   public     { Public declarations }     constructor Create(AOwner: TComponent; APar: TComPar; ADesigner: IDesigner); reintroduce;   end;   procedure Register;   var   ParEditorForm: TParEditorForm;   implementation   {$R *.dfm}   procedure Register; begin   RegisterComponentEditor(TComPar, TComParEditor); end;    { TComParEditor }   procedure TComParEditor.Edit; begin   ParEditorForm:= TParEditorForm.Create(Application, (GetComponent as TComPar), GetDesigner);   try     ParEditorForm.ShowModal;   finally     ParEditorForm.Free;   end;   Designer.Modified; end;   procedure TParEditorForm.AddSubcomponentClass(const ACaption: String; ATag: Integer); var   mi: TMenuItem; begin   if ACaption = '' then exit; // Empty names denote deprecated components.   mi := TMenuItem.Create(Self);   mi.OnClick := miAddClick;   mi.Caption := ACaption;   mi.Tag := ATag;   MAddItem.Items.Add(mi); end;   constructor TParEditorForm.Create(AOwner: TComponent; APar: TComPar; ADesigner: IDesigner); begin   inherited Create(AOwner);   FPar:= APar;   FDesigner:= ADesigner;   EnumerateSubcomponentClasses;   Refreshlist; end;   procedure TParEditorForm.EnumerateSubcomponentClasses; var   i: Integer; begin  for i := 0 to SeriesClassRegister.Count - 1 do    AddSubcomponentClass(SeriesClassRegister[i], i); end;   procedure TGSeriesEditorForm.FormCreate(Sender: TObject); begin   Caption:= FPar.Name + ' editor'; end;   function TParEditorForm.MakeSubcomponent(AOwner: TComponent;   ATag: Integer): TComponent; begin   Result:= TParChildClass(ChildClassRegister.Objects[ATag]).Create(AOwner); end;   procedure TParEditorForm.miAddClick(Sender: TObject); var   s: TComponent;   n: String; begin   s:= MakeSubcomponent(FPar.Owner, (Sender as TMenuItem).Tag);   try     n:= Copy(s.ClassName, 2, Length(s.ClassName) - 1);     s.Name:= FDesigner.UniqueName(n);     FPar.AddChild(s as TParChild);     ParBox.AddItem(s.Name, s);     FDesigner.Modified;     Refreshlist;   except     s.Free;     raise;   end; end;   procedure TParEditorForm.Refreshlist; var   ci: TStrings;   i: Integer; begin   ci:= ParBox.Items;   try     ci.BeginUpdate;     ci.Clear;     with FPar.ChildList do       for i:= 0 to Count - 1 do         ci.AddObject(TComponent(Items[i]).Name, TObject(Items[i]));   finally     ci.EndUpdate;   end; end;   procedure TParEditorForm.tbDelClick(Sender: TObject); var   i: Integer;   s: TComponent; begin   if ParBox.SelCount = 0 then exit;   for i := ParBox.Items.Count - 1 downto 0 do     if ParBox.Selected[i] then     begin       s:= TComponent(ParBox.Items.Objects[i]);       ParBox.Items.Delete(i);       s.Free;     end;   FDesigner.Modified;   Refreshlist; end;   procedure TParEditorForm.ParBoxClick(Sender: TObject); begin   FDesigner.SelectComponent((ParBox.Items.Objects[ParBox.ItemIndex]) as TPersistent); end;   end.

Что еще нужно дописать, чтобы работало? Где я не прав? В литературе ничего подобного не нашел.