//사용예: CreateWindow(TForm(Form1),TForm1,'TForm1');

function CredateWindow(var F: TForm; TF: TFormClass ; Find_ClassName : String) : Boolean;

var i : Integer;

MainForm: TForm;

begin

result := True;

Screen.Cursor := crHourGlass;

MainForm := Application.MainForm;



with MainForm do

begin

if MDIChildCount > 0 then

begin

for i := 0 to MDIChildCount - 1 do

if UpperCase(MDIChildren[i].ClassName) = UpperCase(Find_ClassName) then

begin

MDIChildren[i].BringToFront;

MDIChildren[i].WindowState := wsNormal;

Screen.Cursor := crDefault;

Exit;

end;

end;

end;



//생성되지 않았거나 Mdi_Child Form이 아니라면 Form을 Create한다.

if(IsExist_Form(Find_ClassName)) = False then

Application.CreateForm(TF, F);

Screen.Cursor := crDefault;

end;