김하정 wrote:

> 안녕하세요...

> 제가 어제 안치봉씨께 다시 소스를 보냈는데

> Q&A에 올리라는 걸 깜빡했군요...

> FPB_2102는 Child폼이고 btnempno라는 버튼을 클릭하면 Formstyle이

> fsStayOnTop인 사번조회폼을 Creat하고 Show로 Call합니다.

> 그리고 조회가 이루어진 후 DBGrid를 더블클릭하면 gRtnMsg라는 레코드에 값들을 넣어주고(이 레코드는 이미 정의 해놓았슴)

> procedure TG_FSABUN.DBGrid1DblClick(Sender: TObject);

> begin

> :

> :

> G_FSABUN.Deactivate; //사번팝업의 Active를 죽인다.

> FPB_2102.FormActivate(Self); //Child폼의 FormActive 함수로 이동을 한다.

> end;

>

> procedure TFPB_2102.FormActivate(Sender: TObject);

> begin

> if gRtnMsg.sForm = 'FPB_2102' then

> begin

> Edit1.Setfocus; // 사번팝업에서 호출되었을때만 수행되고 여기에서 error발생.. focus가 가지않음...

> Edit1.Text := gRtnMsg.sMsg[0];

> end;

> end;

>

> PK



안녕하세요~~



한가지 더 붙여서....



실행중에 폼스타일을 바꾸는것은 한마디로 아래와 같다더군요...



>> It is not advisable to change FormStyle at runtime. <<



참고하세요~~~~~~~

김하정 wrote:

> 안녕하세요...

> 제가 어제 안치봉씨께 다시 소스를 보냈는데

> Q&A에 올리라는 걸 깜빡했군요...

> FPB_2102는 Child폼이고 btnempno라는 버튼을 클릭하면 Formstyle이

> fsStayOnTop인 사번조회폼을 Creat하고 Show로 Call합니다.

> 그리고 조회가 이루어진 후 DBGrid를 더블클릭하면 gRtnMsg라는 레코드에 값들을 넣어주고(이 레코드는 이미 정의 해놓았슴)

> procedure TG_FSABUN.DBGrid1DblClick(Sender: TObject);

> begin

> :

> :

> G_FSABUN.Deactivate; //사번팝업의 Active를 죽인다.

> FPB_2102.FormActivate(Self); //Child폼의 FormActive 함수로 이동을 한다.

> end;

>

> procedure TFPB_2102.FormActivate(Sender: TObject);

> begin

> if gRtnMsg.sForm = 'FPB_2102' then

> begin

> Edit1.Setfocus; // 사번팝업에서 호출되었을때만 수행되고 여기에서 error발생.. focus가 가지않음...

> Edit1.Text := gRtnMsg.sMsg[0];

> end;

> end;

>

> PK



안녕하세요. 쩝.



어떤에러인지 발생하는 에러를 그대로 적어주심 더 확실히 알수 있을텐데..예를 들어 엑세스바이올레이션이라든가....기타... -.-;;



추측(?)을 하자면...아무래도 생성하지 않았거나, Visible 이 False 인 콘트롤을 사용해서 생긴 에러이지 않을까라는 생각이 듭니다.



...

...

FPB_2102.FormActivate(Self);



특히 위의 부분이 제일 의심됩니다. 수동으로 폼을 만드셨다면 FPB_2102 에 객체가 제대로 할당되었는지 디버깅해보시고... 자동으로 폼을 생성하셨다면........ 그것 역시 다시 찬찬히.... 보십시요..대개 버그는 단순한겁니다~.