创建窗体列表 - Delphi编程

找到MDI主窗口，然后在菜单中增加一个用来放窗口列表的菜单项如M1，这样在主窗口的属性windowmenu里选择m1就可以了。
正在装载数据……
只要主窗口有创建子窗口就会在m1的菜单下加一个项。

var i:integer;

child :Tform;

fchild :Tform;

begin

for i:=0 to Screen.FormCount -1 do

if Screen.Forms[i].ClassType=Formclass then

begin

child:=Screen.Forms[i];

if child.WindowState =wsMinimized then

showWindow(child.handle,SW_SHOWNORMAL)

else

showWindow(child.handle,SW_SHOWNA);

if (not child.Visible ) then child.Visible :=True;

child.BringToFront ;

child.SetFocus ;

Tform(myform):=child;

exit

end;

lockWindowUpdate(handle);

fchild := Tform(Formclass.Newinstance);

Tform(myform) := fchild;

fchild.Create(AOwner);

LockWindowUpdate(0);

本文来源：http://blog.csdn.net/sheshou2/archive/2007/09/06/1774550.aspx

最新热点		最新推荐		相关文章
		在delphi中使用xml文档有… 初探delphi 7 中的插件编… delphi 2006(dexter) & … 获得windows的版本信息。 “序列号输入助手”源代… rs232串口通讯模块 ado方式下判断数据表是否…		一些vc的基本知识,创建应用实… （转）使用面向对象的技术创… Delphi创建Excel文件常用操作 Delphi如何从非主窗体启动利用JDOM及XPath对XML文件进… Struts架构中的Session对象创… [转]java创建xml文件设计模式--创建模式--简单工… 设计模式--创建模式--抽象工… 设计模式--创建模式--工厂方…