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;