애니메이션 커서는 연장선으로 ANI가있는 파일입니다.
새 프로젝트를 작성하고 Form1에 Button1을 넣은 다음 애니메이션 커서 파일 *.ani를 찾거나 일부 CD (예 : 찾기 *.ani 파일)에서 하나를 찾을 수 있습니다. 코드 :
유닛 커서;
인터페이스
용도
창, 메시지, 시스템, 클래스, 그래픽, 컨트롤, 양식, 대화, stdctrls;
type tform1 = class (tform)
버튼 1 : tbutton;
프로 시저 Formcreate (sender : tobject);
절차 formclose (발신자 : tobject; var action : tcloseacect);
절차 버튼 1Click (sender : tobject);
개인 {개인 선언}
공개 {공개 선언}
끝;
var
form1 : tform1;
holdcursor : hcursor;
구현 {＄ r ＊ .dfm}
절차 tform1. formcreate (sender : tobject);
var
Hnewcursor : Hcursor;
시작하다
버튼 1.caption : = ′ Close ′;
hnewcursor : = loadcursorfromfile ( 'e : /batman.ani');
{애니메이션 커서 파일을로드하려면 API 기능을 호출하십시오. 실제 상황에 따라 ANI 파일 경로를 조정하십시오}
holdcursor : = setclasslong (form1.handle, gcl_hcursor, hnewcursor);
{향후 복구를 위해 원래 커서 저장}}
끝;
절차 tform1.Button1click (sender : tobject);
시작하다
holdcursor : = setclasslong (form1.handle, gcl_hcursor, holdcursor);
close (); 다음 프로그램을 끝내기 전에 커서를 복원하는 것을 잊지 마십시오}
끝;
끝.
이제 실행 (F9를 누르면)을 시작한 후 커서가 애니메이션 커서가됩니다.