Delphi判断MDI子窗体是否被创建

2008-02-28 15:18

//***************************************************************************

//函 数 名: CreateForm

//返 回 值: boolean

//参       数: TForm

//功       能: 判断MDI窗体的子窗体是否存在

//***************************************************************************

function TForm1.CreateForm(CForm:TForm):boolean;

var

i:integer;

FormExist:boolean;

begin

FormExist:=false;

if(CForm=Nil) then     //判断CFrom是否为空

    begin

     CreateForm:=false; //函数返回值赋false

     exit;               //退出本函数

    end;

for i:=0 to Screen.FormCount-1 do                     //判断窗体是否已经建立起来

    begin

     if Screen.Forms[i].ClassType=CForm.ClassType then //判断窗体存在

       FormExist:=true;

    end;

if FormExist=false then

   begin

     CreateForm:=false; //函数返回值赋false

     exit;               //退出本函数

    end;

   if CForm.WindowState=wsMinimized then

    ShowWindow(CForm.Handle,SW_SHOWNORMAL) //显示窗体

    else

    ShowWindow(CForm.Handle,SW_SHOWNA);    //显示窗体

if not CForm.Visible then

    CForm.Visible:=true;

CForm.BringToFront;                     //当前窗口显示在最前面

CForm.SetFocus;

CreateForm:=true;

end;