Delphi - 마우스 모양 변경

Delphi 프로그램 설계에서 마우스가 터치할 이벤트가 매우 많다.때때로 마우스의 모양을 바꾸면 촉발된 사건을 더욱 간단하게 분별할 수 있다.

 1  procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); //        Label1        

 2  begin

 3      Label1.Font.Color:=clBlue;                //  Label1        

 4      Label1.Font.Style:=[fsUnderline];        //  Label1       

 5      Label1.Cursor:=crHandpoint;             //  Label1       

 6  end;

 7  

 8  procedure TForm1.Label1MouseLeave(Sender: TObject); //       Label1       

 9  begin

10      Label1.Font.Color:=clWindowText;       //  Label1     

11      Label1.Font.Style:=[];                //  Label1   （     ）

12      Label1.Cursor:=crDefault;           //  Label1       

13  end;