2 imt0601 IMT0601 于 2016.02.19 23:01 提问

delphi自定义个组件constructor Create

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

1个回答

caozhy
caozhy   Ds   Rxr 2016.02.20 08:18

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

Csdn user default icon
上传中...
上传图片
插入图片
准确详细的回答,更有利于被提问者采纳,从而获得C币。复制、灌水、广告等回答会被删除,是时候展现真正的技术了!