안녕하세요. 최용일입니다.



ShowModal로 띄운 폼의 Ok버트을 눌렸는데 종료가 된다는 말씀이죠. 아마도 90%정도는



Close란 명령을 내리지 않아도 종료가 될것입니다.



폼이 ShowModal인 상태에서 종료가 되는 방법은 폼의 종료버튼을 누르거나 Close를 호



출하거나 또는 ModalResult에 0이 아닌값을 넣어주거나 했을때입니다.



버튼을 눌렀을때 버튼의 ModalResult값이 폼의 ModalResult값에 넣어집니다. 그러므로



만약 버튼의 ModalResult 값이 0(mrNone)이 아닌값이라면 버튼을 누르면 버튼의 OnClick



이벤트처리를 하고 폼이 종료가 됩니다.



모들 폼의 버튼을 눌러도 종료가 안되게 하실려면 버튼의 ModalResult를 0(mrNone)으로 하세요.



^^ 항상 즐코하세요.



준희 wrote:

> 안녕하세요

> 델코초보인데요..

>

> DB에 Insert/Edit하는 Form을 만들려고 하는데 문제가 있어서요..

>

> 화면 FORM을 SHOWMODAL로 생성시켜서 데이터값을 입력받고 OK BUTTON눌렀을때 DATA값을 VALIDATION하여 ERROR가 없으면 DB에 WRITE하고 ERROR가 있으면 ERROR MSG를 띄우고 다시 값을 입력받으려고 합니다. Validation시 Error가 발생했는데도 ERROR MSG를 보여주고 다음에 자동적으로 FORM이 종료가 됩니다. Close란 명령도 하지 않았는데 말이에요..

>

> 그런데 Form을 Show로 생성시켰을 때는 Error MSG를 보여주고 Form이 자동적으로 종료되는 일은 없습니다. 그러나 Form.Showmodal 과 Form.Show의 차이점은 잘 모르겠지만 Form.Showmodal로 생성시켰을 때는 다른 Form이 Inactive되더군요.. 이방법(Showmodal사용)으로 Form을 생성시킬려고 하는데 자동 종료되지 않는 방법이 없을 까요...

>

> 아래의 Src입니다... 참고하시고 빠른답변 부탁드립니다.

> 지식에 목마른 델코초보가...

> 감사합니다.

>

> var

> DBEdit : TFmUserEdit;

> begin

> Try

> DBEdit := TFmUserEdit.Create(Application);

> DBEdit.Showmodal;

> Finally

> DBEdit.Free

> end;

>

>

>

>

>

>

>

안녕하십니까.



이문제는 해결되었습니다.



Project Option에서 Call 되는 Form을 Availible...에 넣고 Click 버튼의 ModalResult를 mbNone으로

바꾸니가 문제가 해결 되었습니다.



정말 감사드립니다.





최용일 wrote:

> 안녕하세요. 최용일입니다.

>

> ShowModal로 띄운 폼의 Ok버트을 눌렸는데 종료가 된다는 말씀이죠. 아마도 90%정도는

>

> Close란 명령을 내리지 않아도 종료가 될것입니다.

>

> 폼이 ShowModal인 상태에서 종료가 되는 방법은 폼의 종료버튼을 누르거나 Close를 호

>

> 출하거나 또는 ModalResult에 0이 아닌값을 넣어주거나 했을때입니다.

>

> 버튼을 눌렀을때 버튼의 ModalResult값이 폼의 ModalResult값에 넣어집니다. 그러므로

>

> 만약 버튼의 ModalResult 값이 0(mrNone)이 아닌값이라면 버튼을 누르면 버튼의 OnClick

>

> 이벤트처리를 하고 폼이 종료가 됩니다.

>

> 모들 폼의 버튼을 눌러도 종료가 안되게 하실려면 버튼의 ModalResult를 0(mrNone)으로 하세요.

>

> ^^ 항상 즐코하세요.

>

> 준희 wrote:

> > 안녕하세요

> > 델코초보인데요..

> >

> > DB에 Insert/Edit하는 Form을 만들려고 하는데 문제가 있어서요..

> >

> > 화면 FORM을 SHOWMODAL로 생성시켜서 데이터값을 입력받고 OK BUTTON눌렀을때 DATA값을 VALIDATION하여 ERROR가 없으면 DB에 WRITE하고 ERROR가 있으면 ERROR MSG를 띄우고 다시 값을 입력받으려고 합니다. Validation시 Error가 발생했는데도 ERROR MSG를 보여주고 다음에 자동적으로 FORM이 종료가 됩니다. Close란 명령도 하지 않았는데 말이에요..

> >

> > 그런데 Form을 Show로 생성시켰을 때는 Error MSG를 보여주고 Form이 자동적으로 종료되는 일은 없습니다. 그러나 Form.Showmodal 과 Form.Show의 차이점은 잘 모르겠지만 Form.Showmodal로 생성시켰을 때는 다른 Form이 Inactive되더군요.. 이방법(Showmodal사용)으로 Form을 생성시킬려고 하는데 자동 종료되지 않는 방법이 없을 까요...

> >

> > 아래의 Src입니다... 참고하시고 빠른답변 부탁드립니다.

> > 지식에 목마른 델코초보가...

> > 감사합니다.

> >

> > var

> > DBEdit : TFmUserEdit;

> > begin

> > Try

> > DBEdit := TFmUserEdit.Create(Application);

> > DBEdit.Showmodal;

> > Finally

> > DBEdit.Free

> > end;

> >

> >

> >

> >

> >

> >

> >

안녕하셔요

괜히 하수가 답변하게 되어 고수님의 자세한 답변을 못들을 것 같아

죄송합니다...

어찌

준희 wrote:

> 안녕하세요

> 델코초보인데요..

>

> DB에 Insert/Edit하는 Form을 만들려고 하는데 문제가 있어서요..

>

> 화면 FORM을 SHOWMODAL로 생성시켜서 데이터값을 입력받고 OK BUTTON눌렀을때 DATA값을 VALIDATION하여 ERROR가 없으면 DB에 WRITE하고 ERROR가 있으면 ERROR MSG를 띄우고 다시 값을 입력받으려고 합니다. Validation시 Error가 발생했는데도 ERROR MSG를 보여주고 다음에 자동적으로 FORM이 종료가 됩니다. Close란 명령도 하지 않았는데 말이에요..

>

> 그런데 Form을 Show로 생성시켰을 때는 Error MSG를 보여주고 Form이 자동적으로 종료되는 일은 없습니다. 그러나 Form.Showmodal 과 Form.Show의 차이점은 잘 모르겠지만 Form.Showmodal로 생성시켰을 때는 다른 Form이 Inactive되더군요.. 이방법(Showmodal사용)으로 Form을 생성시킬려고 하는데 자동 종료되지 않는 방법이 없을 까요...

>

> 아래의 Src입니다... 참고하시고 빠른답변 부탁드립니다.

> 지식에 목마른 델코초보가...

> 감사합니다.

>

> var

> DBEdit : TFmUserEdit;

> begin

> Try

> DBEdit := TFmUserEdit.Create(Application);

> DBEdit.Showmodal;

> Finally

> DBEdit.Free

> end;

>

>

>

>

>

>

>



안녕하셔요! 앞에 zoro님이 ModalResult 에 대한 자세한 설명은 하셨군요!

아래 방법으로 한번 해보셔요! 아마 별탈 없으면 될겁니다.

그러니끼니....

그 showmodal 할 폼을 프로젝트 옵션에서 available forms 로 하시고....

(아래 예에서는 showmodal 할 폼의 이름을 savershow 라고 했습니다.)



그리고 mainform에서는

var

savershow: Tformsaver;

:

:



procedure 버튼클릭 이벤트(); // 여기서 savershow라고 불르고...

begin

If SaverShow = nil then savershow := TFormsaver.Create(Self);

savershow.ShowModal;

FreeAndNil(savershow);

end;





savershow 그 폼에서 닫기 버튼을 클릭할때...의 소스는

ModalResult := mrCancel;



이렇게 한번 해보셔요!



조규춘 올림..

Try ... finally 대신에 Try ... except 문을 쓰세요.