Delphi 동적 폼 생성 및 검색(Screen)

동적 폼 생성 및 검색

(1) VCL에서 Form이 생성되면 전역객체의 Screen객체 Forms 리스트에 등록.

(2) Form이 free 되면 Screen.Forms리스트에서도 자동 삭제 

[사용 목적

]  

  Screen.Forms 리스트를 검색하여 Form의 존재 여부를 쉽게 확인이 가능

// 사용전에 클래스를 등록해야한다. initialization RegisterClass(TForm2); var //GetForm함수에서는 파라메터로 받은 classname의 Form이 있는 검색해보고 없으면 새로 생성해서 return해 줍니다. function GetForm(frmClsName:String):TForm ; var frm: TForm; idx: Integer; begin for idx:=0 to Screen.FormCount -1 do begin if(Screen.Forms[idx].ClassNameIs(frmClsName))then begin Result:=Screen.Forms[idx]; Exit; end; end; frm := TGraph_form.Create(nil); frm.Name := frmClsName; frm.Show; //Application.CreateForm(TComponentClass(GetClass(frmClsName)),frm); // frm:=TForm2.Create(Application); Result:=frm; end; // 사용 방법 procedure TForm1.btn1Click(Sender: TObject); begin GetForm('TForm2').Show(); end;