问题描述

delphi自定义个组件constructor Create

求大神指点，我自定义个组件，在constructor Create(AOwner:TComponent);override; 方法里动态添加了另外一个组件（比如是TButton），问题就是，每次重新打开源程序（窗体上添加有我新做的这个组件），在新做的组件上都会动态添加一个TButton，打开一遍，多添加一个；而且在运行的时候，也会多添加一个；搞不明白了，我的目的是在新做项目上，拖动这个组件到窗体上，就是两个组件合在一起就可以了

解决方案

加上一个判断
if (AOwner.ControlCount < 1) then
begin
添加
end;