在delphi中如何避免子窗体重复打开

我写了程序用来避免子窗体的重复打开，打开某一个窗体是没有问题的。但是当同时打开了2个窗体，再打开那个不在激活状态下的窗体时，原本打开的窗体不会被激活而是重新打开2个相同的子窗体，这是怎么回事啊？！ 我写了程序用来避免子窗体的重复打开，打开某一个窗体是没有问题的。但是当同时打开了2个窗体，再打