Implementación del mouse animado en la programación de Delphi

El cursor de animación es un archivo con ANI como la extensión.

Cree un nuevo proyecto, coloque un botón1 en Form1 y luego busque un archivo de cursor de animación *.Ani. Código:

Unidad de cursor;

interfaz

usos

Windows, mensajes, sysutils, clases, gráficos, controles, formularios, diálogos, stdctrls;

Escriba tForm1 = class (tForm)

Botón 1: tbutton;

Procedimiento formulcreate (remitente: tobject);

procedimiento FormClose (remitente: tobject; VAR Acción: TCLoseAction);

procedimiento botón1Click (remitente: tobject);

privado {declaraciones privadas}

Público {Declaraciones públicas}

fin;

varilla

Form1: tform1;

HoldCursor: HCursor;

Implementación {＄ R ＊ .dfm}

procedimiento tForm1.FormCreate (remitente: tobject);

Varilla

Hnewcursor: HCursor;

Comenzar

Botón 1.Caption: = ′ Close ′;

HNewCursor: = LoadCursorFromFile (′ e: /batman.ani ′);

{Llame a la función API para cargar el archivo del cursor de animación, ajuste la ruta del archivo ANI de acuerdo con su situación real}

HoldCursor: = setClassLong (form1.handle, gcl_hcursor, hnewcursor);

{Guardar el cursor original para la recuperación futura}

fin;

procedimiento tForm1.Button1Click (remitente: tobject);

Comenzar

HoldCursor: = setClassLong (form1.handle, gcl_hcursor, holdCursor);

Close ();

fin;

fin.

Ahora lo ejecuta (presione F9), y después de comenzar, el cursor se convierte en el cursor de animación.