1.新建工程
- 创建基类窗体,设置为不自动创建,保存
- 创建子类窗体,new - other - inheritable items - 选择基类窗体。
2.已有工程
- 引用基类单元
- 修改Class 基类
- 修改 dfm档,object -> inherited (关键)
inherited Form2: TForm2 Caption = 'Form2' PixelsPerInch = 96 TextHeight = 13 end
posted on 2016-05-19 07:54 rexhu 阅读(188) 评论(0) 编辑 收藏 举报