当前运行的fsMDIChild窗口:
ShowMessage(ActiveMDIChild.Caption)ActiveMDIChild.Show
所有已打开的MDI窗体,下面的self是fsMDIForm主窗体
for i:=0 to self.MDIChildCount-1 do
showmessage(self.MDIChildren[i].Caption);
或
hWinHwd:=FindWindow(nil,Pchar(self.MDIChildren[i].Caption));
ShowWindow(hWinHwd,SW_SHOW);
用列表框管理所有fsMDIChild
for i:=0 to self.MDIChildCount-1 do//把所有运行的子窗体的标题获取到ListBox1中
ListBox1.AddItem(self.MDIChildren[i].Caption, self.MDIChildren[i]);
在ListBox1的OnClick事件里头加上:
TForm(ListBox1.Items.Objects[ListBox1.ItemIndex]).Show