Q&A

  • 실행 시킬 때 cursor 문제
어떠한 화면을 실행 시키면
Screen.Cursor := CrHourGlass;

실행이 끝나면
Screen.Cursor := CrDefault;

이런식으로 코딩을 했습니다.
근데 문제는
Cursor가 CrHourGlass 상태인데 버튼들이 클릭이 됩니다.

Form은 fsMDIChild입니다.
버튼클릭을 막을 수 있는 방법이 없을까여?
1  COMMENTS
  • Profile
    최용일 2004.03.09 20:03
    안녕하세요. 최용일입니다.

    Screen.Cursor := CrHourGlass;

    위의 코드는 단순히 마우스커서의 모양만 변경시키는겁니다...

    버튼클릭을 막으실려면 버튼을 Disable시키거나 버튼의 OnClick이벤트를 제거시키세요...

    Screen.Cursor := CrHourGlass;
    Button1.Enabled := False;
    try

    finally
        Screen.Cursor := CrDefault;
        Button1.Enabled := True;
    end;

    혹은

    Screen.Cursor := CrHourGlass;
    Button1.OnClick := nil;
    try

    finally
        Screen.Cursor := CrDefault;
        Button1.OnClick := Button1Click;
    end;

    ^^ 항상 즐코하세요...