마니 급합니다. 아시는분 구원의 손길좀.................



제대로 하지 않았나 싶은데 에러가 나네요

이것저것 해봐도 안되서....... (~) (~)

(~~~^~~~)

repeat

//gi_ProgramFlow는 각 window close 시에 setting

case gi_ProgramFlow of

const_ExitProgram :

begin

break;

end;

const_OpenGubun:

begin

Application.CreateForm(Tw_Gubun, w_Gubun);

w_Gubun.ShowModal;

end;

const_OpenHakbun:

begin

Application.CreateForm(Tw_Hakbun, w_Hakbun);

w_Hakbun.ShowModal;

end;

const_OpenKind:

begin

Application.CreateForm(Tw_SKind, w_SKind);

w_SKind.ShowModal;

end;

const_OpenCopy:

begin

Application.CreateForm(Tw_Copy, w_Copy); <--여기서 에러가나는데요~!

걸 위에(const_OpenKind:) 로 옮기면 이상이없어요...

아마 메모리? 인듯십긴한데 showmodal;, Close; 에는

문제가 없는 것 같은디!

w_Copy.ShowModal;

end;

const_OpenPrint:

begin

Application.CreateForm(Tw_CPrint, w_CPrint);

w_CPrint.ShowModal;

end;

else

begin

showmessage('else');

gi_ProgramFlow := const_ExitProgram;

break;

end;

end;

until false;

//종료는

각 window.FormKeyDown(Sender: TObject); 에서 Close 를 하고

각 window.close 에서 Release; 합니다.