71.1窗体组件(2) 单击File,选择NeW后单击Fom,在出现的另一个表单 中作如下修改: name: SubForm Caption:子窗体 区主音特 干W售 Formstyle fsMDiChild 为 Subfrr表单中OnCⅰk事件添頒如下代码: procedure TSubForm FormClick (Sender: Tobject); begin Subform color =clred 7-2窗体 end 应用 单击RUn菜单运行程序,当单击子窗体时,发现子窗体 的颜色发生了改变。程序运行结果如图7-2所示。 注意:由于只是为了演示组件的功能,所以对程序本身实现的意义并 不关心,这一点需要注意。 Inprise Dephi7.1.1 窗体组件（2）  单击File，选择New后单击Form，在出现的另一个表单 中作如下修改： name：SubForm Caption:子窗体 Formstyle：fsMDIChild  为SubFrm表单中OnClick事件添加如下代码： procedure TSubForm.FormClick(Sender: TObject); begin Subform.Color:=clred; end;  单击Run菜单运行程序，当单击子窗体时，发现子窗体 的颜色发生了改变。程序运行结果如图7-2所示。 注意：由于只是为了演示组件的功能，所以对程序本身实现的意义并 不关心，这一点需要注意。 图7-2 窗体应用 7-2 窗体 应用