Q&A

  • MDI 에서 폼 생성입니다. ^^
안녕하세요. MDI 에서 폼을 생성할려구 하는데 폼명을 String으로 받아서 생성

할려구 하는데 잘되지 않아서 이렇게 여쮭게 됐습니다.

procedure TKOM_MAINFRAME.VATBI4Click(Sender: TObject);
Var
   str_Form : String;
begin
   Str_Form := 'VATBI4QueryF';
   If gf_CreateChildForm(PChar('T' + Str_Form) , NOPK) = Nil Then
      begin
      TForm(Str_Form) := TVATBI4QueryF.create(Application);
      TForm(Str_Form).Perform(WM_USER+4, NOPK, 0);    //윈도콜
      TForm(Str_Form).top :=0;
      TForm(Str_Form).left :=0;
      Gf_allow(TForm(Str_Form),'VATBI4');
      end;

end;

위에 것이 소스입니다.

제가 해결이 되지않는 부분은 TVATBI4QueryF.create(Application); 부분입니다.

TVATBI4QueryF를 String변수인 Str_Form으로 처리하고 싶은데.. 잘 되지 않는 군요... ^^

즐거운 하루 되시구요.. 고수님들의 답변 부탁드립니다.
0  COMMENTS