创建不能在表单上多次添加的简单组件

Question

如何编写一个简单的组件，永远不允许它在表单上删除多个时间?
比方说，我已经把我的TMyComponent放到了表单上，如果我再放一个TMyComponent，它就会通知"Component已经存在!"

Answer 1

组件的构造函数接受一个Owner参数:它通常是你的Form(或DataModule)。简单地遍历Owner.Components的列表，看看是否还有你的另一个。如果存在，则引发异常。

这会阻止你的组件被添加，无论是在设计时还是在运行时。