Home » Tipps & Tricks » System » Tastatur und Maus » Animierte Cursor einsetzen
Animierte Cursor einsetzen
Als erstes benötigt man ein Handle auf einen Windows-Cursor und weist ihn dem Cursor-Array der TScreen-Komponente zu.Vordefinierte Cursor beginnen mit einem negativen Index, benutzerdefinierte Cursor mit einem positiven.Das folgende Beispiel ist ein Delphi-Fenster, das einen animierten Cursor verwendet:
procedure TForm1.Button1Click(Sender: TObject); var h: THandle; begin h:=LoadImage(0, 'C:\TheWallMagic.ani', IMAGE_CURSOR, 0, 0, LR_DEFAULTSIZE or LR_LOADFROMFILE); if h=0 then ShowMessage('Cursor nicht geladen') else begin Screen.Cursors[1]:=h; Form1.Cursor:=1; end; end;