Animation Cursor ist eine Datei mit ANI als Erweiterung.
Erstellen Sie ein neues Projekt, setzen Sie einen Button1 auf Form1 und finden Sie eine Animations -Cursor -Datei *.ani. Code:
Einheit Cursor;
Schnittstelle
Verwendung
Windows, Nachrichten, Systeme, Klassen, Grafiken, Steuerelemente, Formulare, Dialoge, STDCtrls;
Typ tform1 = Klasse (tform)
Button1: Tbutton;
Prozedur Formcreate (Absender: Tobject);
ProzedurformClose (Absender: Tobject; var Aktion: tcloseaction);
PROCEDURE Taste1Click (Absender: Tobject);
private {private Erklärungen}
public {public deklarations}
Ende;
var
Form1: tform1;
HoldCursor: HCURSOR;
Implementierung {＄ r ＊ .dfm}
procedure tform1.formcreate (Absender: tobject);
Var
HnewCursor: hcursor;
Beginnen
Button1.Caption: = 'Schließen';
HnewCursor: = loadCursorfromFile ('e: /batman.Ani');
{Rufen Sie die API -Funktion auf, um die Animations -Cursor -Datei zu laden
HoldCursor: = setClasslong (Form1.Handle, GCL_HCURSOR, HNEWCURSOR);
{Speichern Sie den ursprünglichen Cursor für die zukünftige Wiederherstellung}
Ende;
procedure tform1.button1click (Absender: tobject);
Beginnen
HoldCursor: = setClasslong (Form1.Handle, GCL_HCURSOR, HoldCursor);
Close ();
Ende;
Ende.
Jetzt führen Sie es aus (drücken Sie F9), und nach dem Start wird der Cursor zum Animationscursor.