빌더로 프로그래밍 하다 막혀서 질문을 드립니다.

메인폼에서  Sub폼을 ShowModal로 호출하면

Sub폼의 FormShow이벤트에서 아래소스와 같이 사용자 아무런 입력도

하지 않아도 처리하고 Sub폼을 Close하고 다시 메인폼으로 돌아옵니다.

그런데 문제는 실제로 실행해보면 메인폼에서 Sub폼을 호출하는데도

화면에는 서브폼이 나타났다가 자동으로 Close되지 않고 처리가 끝나도록


나타나지 않고 있다가 처리가 끝나면 비로서 화면에 나타나서 남아 있고

자동으로 Close되지 않습니다.

고수님의 조언을 부탁드립니다.

그럼.

소스

...

SubForm->ShowModal();

...


void __fastcall TSubForm::FormShow(TObject *Sender)
{


           Application->ProcessMessages();

            OkBtnClick(Sender);
           Application->ProcessMessages();

           Close();
           Application->ProcessMessages();


}