Q&A

  • EventHandler에서 Default 동작을...
EventHandler에서 Default 동작을 수행하지 않으려면..?

System Menu에서 X로 표시된 버튼을 누르면 User에서 물어본다면 해당

Form을 끝낼것이가 그렇지 않을 것인가 판단을 하고 싶습니다.

아래 코드처럼 작성을 하였느데... compile error가 발생합니다.



procedure TfrmMain.FormHide(Sender: TObject);

var

result: Word;

begin

result := MessageDlg('종료?', mtConfirmation,[mbYes, mbNo], 0);

if result = mrYes then

halt(0);

// frmMain.visible := true;

end;



frmMain.visible := true라는 부분에서 error발생됩니다.

error는 visible을 수정하는 Handler에서 user program에서 변경할 수가 없다고

하네요. 고수님의 한수를 부탁드립니다.



미리 감사드리며...





1  COMMENTS
  • Profile
    조복기 1999.06.16 03:45
    최기훈 께서 말씀하시기를...

    > System Menu에서 X로 표시된 버튼을 누르면 User에서 물어본다면 해당

    > Form을 끝낼것이가 그렇지 않을 것인가 판단을 하고 싶습니다.

    > 아래 코드처럼 작성을 하였느데... compile error가 발생합니다.

    >

    > procedure TfrmMain.FormHide(Sender: TObject);

    > var

    > result: Word;

    > begin

    > result := MessageDlg('종료?', mtConfirmation,[mbYes, mbNo], 0);

    > if result = mrYes then

    > halt(0);

    > // frmMain.visible := true;

    > end;

    >

    > frmMain.visible := true라는 부분에서 error발생됩니다.

    > error는 visible을 수정하는 Handler에서 user program에서 변경할 수가 없다고

    > 하네요. 고수님의 한수를 부탁드립니다.

    >

    > 미리 감사드리며...

    >

    >



    안녕하세요..



    프로그램 종료시 사용자에게 물어보고 종료한다는 얘기인가요?

    Form 이벤트중에

    FormCloseQuery(Sender: TObject; var CanClose: Boolean) 이벤트를

    사용하세요..



    canclose가 true이면 종료됩니다.



    **

    if MessageDlg(' 프로그램을 끝내겠습니까?,

    mtCustom, [mbYes, mbNo], 0) = mrYes then

    canclose := true



    질문에 대한 답변이 정확했는지 모르겠네요..그럼.

    • 이호선
    • 1999.06.16 07:06
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 안치봉
      1999.06.16 18:48
      이호선 께서 말씀하시기를... > 안녕하세요 > 한 폼에서 ShowModal로 폼을 띄웠습니다. 이 Modal폼에서 ...
    • 신인재
      1999.06.17 01:08
      테이블이 어떤 테이블인지..... 만약 파일시스템에서 사용하는 파라독스같은 것이면 delzip을 이용하...
    • 초보
      1999.06.17 03:14
      감사합니다. 근데 바쁘신가봐요 자료실에 확인해 봤는데 없더라구요 빨리 올려주세요 그럼.. 신인...
    • 이주흥
    • 1999.06.16 06:04
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 안치봉
      1999.06.16 18:54
      이주흥 께서 말씀하시기를... > 이거 여기 질문해도 되나 모르겠습니다.. > 다름이 아니고 레지스트리에 ...
    • 홍성원
    • 1999.06.16 05:27
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 안치봉
      1999.06.16 18:57
      홍성원 께서 말씀하시기를... > 델파이에서의 '폼 디자인'을 그대로 > 모사할 수 있는 방법을 알고 싶습...
    • 최기훈
    • 1999.06.16 03:10
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 조복기
      1999.06.16 03:45
      최기훈 께서 말씀하시기를... > System Menu에서 X로 표시된 버튼을 누르면 User에서 물어본다면 해당 > ...
    • 최선기
    • 1999.06.16 02:08
    • 2 COMMENTS
    • /
    • 0 LIKES
    • 김우철
      1999.06.16 09:35
      고수님의 답변에 덧붙여 몇자 적습니다. 일반적으로 Application을 만들때 젤 먼저 결정해야할 문제중 하...
    • 안치봉
      1999.06.16 03:55
      최선기 께서 말씀하시기를... > Project메뉴/option의 Forms 페이지의 기능에 대해 자세히 알고 싶습니다....
    • 이영범
    • 1999.06.16 01:44
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 신호성
      1999.06.17 17:42
      이영범 께서 말씀하시기를... > 안녕하십니까?... > 퀵리포트에서는 Query컴포넌트(이후 Query)를 1개밖...
    • 서영환
    • 1999.06.16 01:23
    • 3 COMMENTS
    • /
    • 0 LIKES
    • 안치봉
      1999.06.16 03:31
      서영환 께서 말씀하시기를... > Active Form에서 다운 받은 OCX를 설치하면, > 버전업을 해도 다시 다운...
    • 서영환
      1999.06.16 04:52
      안치봉 께서 말씀하시기를... > 서영환 께서 말씀하시기를... > > Active Form에서 다운 받은 OCX를 설치...
    • 공대규
      1999.06.29 17:18
      > codebase="http://210.116.3.220/t3/tProj1.cab"#version=1,0,0,0 위 부분의 따옴표가 혹시 "htt...
    • 하명훈
    • 1999.06.16 01:16
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 조복기
      1999.06.16 01:27
      하명훈 께서 말씀하시기를... > procedure TSearch.Button1Click(Sender: TObject); > 쿼리를 엑세스하...
    • 박성훈
    • 1999.06.16 01:10
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 안치봉
      1999.06.16 04:16
      박성훈 께서 말씀하시기를... > procedure Button1Click(Sender: TObject); > begin > Self.Close; ...
    • 강미라
    • 1999.06.16 00:55
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 김우철
      1999.06.16 02:23
      고수는 아니지만, 기냥 써볼랍니다. 날짜에 대한 자료를 처리할수 있는 클래스를 만들어서 윤년계산, 해당...
    • 김진성
    • 1999.06.16 00:42
    • 3 COMMENTS
    • /
    • 0 LIKES
    • 김태균
      1999.06.16 00:49
      김진성 께서 말씀하시기를... > ORACLE에서는 ROWNUM을 이용하여 존재하는 레코드에 대한 > 각각의 번호...
    • 김진성
      1999.06.16 06:22
      김태균 께서 말씀하시기를... > 김진성 께서 말씀하시기를... > > ORACLE에서는 ROWNUM을 이용하여 존재...
    • 김태균
      1999.06.16 18:23
      음..... 테이블을 만들때 포함시키는 것입니다. SQLServer에서 테이블을 생성할 때 순서가 다음과 같...
    • 최기훈
    • 1999.06.16 00:31
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 최기훈
      1999.06.16 03:05
      최기훈 께서 말씀하시기를... > 안녕하세요. 염치를 불구하고 이렇게 또 메일을 올립니다. > Delphi에서 ...
    • 장일
    • 1999.06.15 22:58
    • 0 COMMENTS
    • /
    • 0 LIKES
    • 이주흥
    • 1999.06.15 22:55
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 최석기
      1999.06.16 01:27
      > TrayIcon에서요.. 팝업메뉴를 만드는 방법좀 알려주세요.. > 그러니까 Icon에서 오른쪽 마우스클릭 했을...
    • 디제이
    • 1999.06.15 20:59
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 안치봉
      1999.06.15 21:07
      디제이 께서 말씀하시기를... > > 비베에서는 On Error goto문이 있습니다만 > 델파이에서는 어떤식으...