想实现注销功能,怎样能一次关闭除主窗体外的所有窗体???

Question

RT,请各位大虾指点??
for i := 0 to screen.formcount -1 do
 begin
  screen.forms[i].close;
 end;
这样所有窗体都关闭
我怎样能留住主窗体(mainform)关闭其它窗体??
我没有运用父窗体与子窗体 

Answer 1

var
  i: integer;
begin
  for i := 0 to Screen.FormCount -1 do
  begin
    if Screen.Forms[i].FormStyle=fsMDIChild then
    Screen.Forms[i].Close;
  end;
end;

Answer 2

谢谢楼上的,不过我没有把除主窗体外的窗体定义为MDIChild
如果这样该怎么解决???

Answer 3

for   i   :=   0   to   screen.formcount   -1   do 
  begin
    if screen.forms[i].name<>'此处加上主窗体名称' then
    screen.forms[i].close; 
  end;