标签: delphi components custom-controls
如何编写一个从不允许它在表单上多次删除的简单组件? 比方说,我已经在表单上删除了我的TMyComponent,如果我将删除另一个TMyComponent,它会通知'组件已经存在!'并取消在表格上删除组件。
答案 0 :(得分:10)
组件构造函数采用Owner参数:通常是您的表单(或DataModule)。只需浏览Owner.Components列表,看看是否还有其他人。如果有,请提出异常。
Owner
Owner.Components
这将阻止在设计时和运行时添加组件。