Q&A

  • 모달폼을 않닫기
아래와같이 모달폼을 띄웠습니다.

모달폼에서 종료버튼을 클릭하면 닫히는데

종료버튼을 눌렀을때 Funtion을 실행시켜서

False면 않닫히고 True면 닫히게하고싶은데 어떻게해야하나요?

너무 초보적인 질문인가? 고수님들의 답변부탁드립니다.



Child_Form := TfSim_LinSce.create(self);

try

if (Child_Form.showmodal=mrOk) then

begin



end;

finally

Child_Form.free;

end;

1  COMMENTS
  • Profile
    투덜이 2000.10.19 02:45
    모달폼도 닫으까요 물어보고 닫고 싶으신거죠?

    그 모달폼의 CloseQuery이벤트에서 메세지 박스를 띄우시고

    그러니까...이렇게...



    if MessageDlg('닫으까?',mtInformation, [mbOk, mbCancel], 0) = mrOk then

    begin

    CanClose := True

    end

    else

    begin

    CanClose := False

    end;



    메세지 박스 자리에 함수를 넣으시고 아님..함수의 결과가 어차피 true, false니까,

    그 값을 바로 CanClose에 넣으셔두 될것 같은데...

    저두 초보라 확정적이 답은 못해드리겠네요...



    멋진 코딩하세요.^^





    호야 wrote:

    > 아래와같이 모달폼을 띄웠습니다.

    > 모달폼에서 종료버튼을 클릭하면 닫히는데

    > 종료버튼을 눌렀을때 Funtion을 실행시켜서

    > False면 않닫히고 True면 닫히게하고싶은데 어떻게해야하나요?

    > 너무 초보적인 질문인가? 고수님들의 답변부탁드립니다.

    >

    > Child_Form := TfSim_LinSce.create(self);

    > try

    > if (Child_Form.showmodal=mrOk) then

    > begin

    >

    > end;

    > finally

    > Child_Form.free;

    > end;