给TForm的子类添加Published属性
1、给Tform的子类添加Published属性
2、把Form添加到Object Repository (对象仓库)
3、添加这个窗体到一个设计时包中。
4、添加uses DsgnIntf(这里指Delphi5,在Delphi 6 改成DesignIntf,DesignEditors),…到单元中,并加入注册代码如下:
procedure Register;
begin
RegisterCustomModule(TMyForm, TCustomModule);
end;
5、最后在项目中从Repository中继承你添加的TmyForm,新的Published属性会显示在属性编辑器中。
当然还有更加复杂的创建方法,就是写一个模块创建专家,使用CreateModuleEx函数和不同的流机制来实现,但由于比较难,并且没有什么特殊的优势,这里就不介绍了