Delphi中实现MDI子窗体(转)

时间:2024-01-04 21:38:20
Delphi中实现MDI子窗体

用MDI实现浏览子窗口,具有窗口管理功能,同屏观看多个网页的内容 
  ① 多文档窗体(MDI) 
MDI窗体是一种具有主子结构的窗体体系,微软的Word便是其中的一个典型例子。MDI体系中至少需要两种窗体,只能将其中之一设置为主窗体,其余窗体全部则全部为子窗体,主窗体负责子窗体的管理、切换等工作。自然,子窗体上承载的内容可各不相同。Tidy浏览器最终实现了三种不同的窗体:主窗体、浏览子窗体、源代码子窗体。 
  ② 设置窗体类型 
  我们通过窗体的FormStyle属性设置窗体类型,它是一个枚举类型,可取的值包括:fsNormal, fsMDIChild, fsMDIForm, fsStayOnTop。分别对应:普通窗体, MDI子窗体,MDI主窗体, 普通顶部窗体。 
  值得注意的是,窗体的FormStyle属性应在设计期确定,运行期间更改是不可取的。 
  ③ 子窗体的创建 
  一般而言,主窗体在应用程序启动时自动创建,子窗体通常在响应用户的有关动作之后才创建。并且,同一类子窗体实例可以多次被创建。为了避免程序启动时即创建子窗体,可通过C++Builder的集成环境IDE上的菜单Project\Options上的Form标签页,将所有子窗体从Auto-create forms窗口中,移至Available forms窗口。 
  ④ 子窗体的关闭 
  MDI窗体技术中另一个值得注意的问题是,用户点击MDI子窗体的关闭按钮企图关闭子窗体,系统默认的动作却是将其最小化。为了真正的实现关闭子窗体并释放所占用的内存,可在OnClose事件中将引用参数Action设置为caFree。Action的其他可取值为:caNone,caHide,caMinimize,分别对应无动作、隐藏、最小化。 
  ⑤ 主窗体的重要属性的使用 
  ActiveMDIChild属性,指向当前活动的子窗体。此乃TForm *类型的指针,必要时可强制转换为任意类型的子窗体实例。 
  MDIChildCount属性,用于判断已经创建的子窗体的总数。 
  MDIChildren属性,是一个TForm *类型的指针数组,指向目前存在的所有的子窗体。结合MDIChildCount属性,可以实现子窗体的遍历。 
  ⑥ 子窗体之间的切换 
  直接引用主窗体的方法Previous()、Next(),可以实现子窗体的前、后切换。 
  ⑦ 子窗体的布局 
  直接引用主窗体的方法Tile()、Cascade(),可以实现子窗体的平铺、层叠布局。

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

delphi中判断子窗体是否打开 (2008-10-07 15:21:52)
标签:it 分类:DELPHI程序设计
今天在一个程序中,需要判断子窗体是否打开,写了这段代码共享出来

在一个MDI窗体中限制打开多个子窗体,采用遍历的方式判断子窗体是否已经存在:

procedure Tf_Main.btnUpdateClick(Sender: TObject);
var
i:Integer;
begin
for i :=0 to f_main.MDIChildCount -1 do //MDIChildCount:总的子窗体个数
if (f_main.MDIChildren[i] is Tf_Pass) then //判断子窗体是否存在
begin
self.MDIChildren[i].BringToFront; //把窗体放在最前面
MDIChildren[i].SetFocus; //窗体获得焦点
Exit; //退出函数体

end;

//创建新窗体
Application.CreateForm(Tf_Pass,f_Pass);
f_Pass.Show;
end;

允许单击关闭按钮时关闭子窗体:

procedure Tf_Pass.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
f_Pass := nil;
end;