小问题，请指点！！

Question

请问高手，我看别人的MID程序的时候，新建一个MDI子窗体时，在菜单项Windows中就会出现该子窗体的名字，点击可以改变当前活动的子窗体，可是我在代码中怎么找不到这段程序？？他们是怎么加上的啊？？

Answer 1

设置主窗体的formstyle为fsMDIForm，子窗体设置为fsMDIForm为fsMDIChild，看看帮助吧

Answer 2

不董你的意思，你是不是说就想word一样呢

Answer 3

我明白你的意思了，你要在Windows中列出已经打开子窗体的名称

Answer 4

你可以这样做，当打开子窗体的时候在windows菜单的Item中加入，注意唯一性

Answer 5

对啊！！！可是我看别人的程序？？？里面怎么没有写源代码啊？？？而且也实现了象Word那样的功能？？我不知道怎么写啊！！！其实我关键想知道的是如何在MDI中通过菜单把已经创建的子窗体在此激活？？？
procedure TForm1.asdfasdf1Click(Sender: TObject);
var
kk:Tform2;
k:integer;
found:boolean;
begin
found:=true;
for k:=0 to MDIChildCount-1 do
  if MDIChildren[k].name ='Form2' then
     found:=false;
if  found then
begin
kk:=TForm2.create(self);
kk.show;
end
else
把已经创建的激活？？？？这儿如何写？？？
end;