[Delphi] 커서 바꾸기

버튼을 누르면 XXX 라는 좀 긴 일을 하는 부분에서 커서를 모래시계로 바꿨다가,

일이 끝나면 다시 정상으로 돌리고 싶다고 하자.

 

procedure Form1.Button1Click(Sender: TObject);

begin

  Screen.Cursor:=crHourGlass; // 모래시계로 바꾼다. Screen.Cursor 인 것에 주의

   .. 이런일.. 저런일..

  Screen.Cursor:=crDefault; // 정상으로 돌린다. 역시 Screen.Cursor 인 것에 주의

end;

 

중요한 건 Screen.Cursor 라는 것이다.

병신같이 Cursor:=crHourGlass; 나 Self.Cursor:=crHourGlass; 로 삽질하느라 혼났다.