关于用属性编辑器在一个控件里面增加子控件的问题(50分)

本人设计一个控件，
从 TImage 继承的， 里面有很多小控件 从 TShape 继承的，然后用属性页在菜单里面增加了两个子菜单，可是我增加的自己的控件在设计模式下没有问题，到了运行模式却说 ‘Class XXXX no found’ 我也不知道为什么，可是增加一个Button却没有问题。

HotPointImage := THotPointImage(Component);
begin
Designer := Self.Designer;
case ItemIndex of
0:
begin
HotPoint := THotPoint.Create(Designer.GetRoot);
HotPoint.Parent := HotPointImage;

Designer.SelectComponent(HotPoint);
Designer.Modified;
end;
1:
begin
end;
end;
end;

详细一点。

我想可能是我的 HotPoint 控件没有注册之类的，因为如果用 Button 就
不会有问题，我不知道，是否要注册，或者怎么注册呢？

附加功能 将问题提前

运行时designer = nil.

在程序创建时添加代码
RegisterClass(WhatYouWantCreateClassNames);

多人接受答案了。