Q&A

  • 급합니다. 메세지박스처리에 대해서....
메세지박스에서 각항목별 이벤트 처리

아래와같이 코딩하니까 ?

no 와 cancel 처리시 같은 값이 출력됩니다.

cancel시에는 아무처리도 일어나지 않도록하는 방법없나요...



if IdYes = Application.Messagebox('전월과 동일하게 등록하시겠습니까?', '월간급여,

MB_YesNoCancel + MB_Iconquestion) then

edit1.Text := '1'

else

edit2.Text := '2'

2  COMMENTS
  • Profile
    한원희 2001.02.07 00:38
    김범수 wrote:

    > 메세지박스에서 각항목별 이벤트 처리

    > 아래와같이 코딩하니까 ?

    > no 와 cancel 처리시 같은 값이 출력됩니다.

    > cancel시에는 아무처리도 일어나지 않도록하는 방법없나요...

    >

    > if IdYes = Application.Messagebox('전월과 동일하게 등록하시겠습니까?', '월간급여,

    > MB_YesNoCancel + MB_Iconquestion) then

    > edit1.Text := '1'

    > else

    > edit2.Text := '2'



    다음과 같이 수정하면 되지 않을까요? ^^;



    var ret: Integer;

    begin

    ret = Application.Messagebox('전월과 동일하게 등록하시겠습니까?', '월간급여,

    MB_YesNoCancel + MB_Iconquestion);

    if ret=IDYES then edit1.Text := '1'

    else if ret=IDNO then edit2.Text := '2';







  • Profile
    김범수 2001.02.08 01:32
    정말 고맙습니다.

    그럼 수고하세요