如何关闭特定的子窗口?

[sungolf]

新建MDI程序，点击File|New出现一些子窗口，默认的标题为“NONAME?”，
即NONAME1、NONAME2、NONAME3……
现在，我想在主窗口上添加一菜单实现关闭NONAME2的功能（其它的子窗口不变）。
请问该如何实现？

另外：如果NONAME2不在最前面，想把它提到最前面该如何实现？谢谢。

为什么我用FindWindow('TMDIChild','NONAME2')返回总是0？

[sungolf]

up

[Liusp]

关注

[taber]

1
if Assigned(MDIChildren[2]) then
MDIChildren[2].close;

2
if Assigned(MDIChildren[2]) then
MDIChildren[2].show;

3
因为创建的MDIChild都不是独立的窗口和进程，没有自己的句柄

[Liujc]

for i:= 0 to mdichildcount-1 do
begin
if mdichildren[i].caption = 'NONAME2' then
mdichildren[i].close ;
end ;

[知足常乐]

FindWindow('TNONAME2',nil)

[zws]

楼上两位应该都可以吧

[NightCloud]

应该是FindWindow('Tform',NOName2)吧

[111222]

大叔大妈过年好！给点儿分吧！家里都接不开锅啦！

[Kenjiang]

我觉得 Liujc(阿聪) 的程序比较符合要求。

[sungolf]

我想把分给Liujc(阿聪)，虽然显示已经给出的界面，可实际上这个问题还属于未
解决的问题，why？
Liujc(阿聪)：拖这么久真不好意思，请等待。