안녕하세요. 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으로 처리하고 싶은데.. 잘 되지 않는 군요... ^^
즐거운 하루 되시구요.. 고수님들의 답변 부탁드립니다.