关于 窗体的继承。。。

Question

我在写一个电子病历的系统，在处理病历夹的时候，我想这样处理：由于不同的科室的病历格式不同，我先在一个Frm_BingLiJia中添加一个PageControl1,然后在PageControl1中依次添加TabSheet1, TabSheet2...,分别对应‘首页’，‘出院记录’..., 我想将所有的格式都在设计期写好，在运行期临时建立一个新的Frm_tmp,在此Frm_Tmp上，依次从Form1上提取符合当前科室的模块（TabSheet1,TabSheet2 ...），组成新的模块组。问题是：1.  
procedure TFrm_Tmp.FormShow(Sender: TObject);
begin
  TabSheet1 := (Frm_BingLiJia.PageControl1.Pages[1]).Create(nil);
end;
为什么Frm_Tmp上全部提取了Frm_BingLiJia的TabSheet? 而不是TabSheet12. 我在Frm_BingLiJia上写的属性，时间，方法 在 Frm_Tmp上都没用，难道非要重写，工作量太大了，有没有别的办法？？？

Answer 1

重新指定其parent不就行了吗,例如 TabSheet1.Parent :=FrmTmp;

Answer 2

xiexie!我的第一个问题已解决了。能回答我的第二个问题吗？

Answer 3

Frm_Tmp从Frm_BingLiJia继承，就会拥有Frm_BingLiJia中建的属性了

Answer 4

to dyf2001:
'怎么感觉你这么累啊，初始化时不需要的页隐藏不就行了。'这个简单，问题是这样不安全，容易被解开被隐藏的页，我想这样相对安全一些.