Home » Tipps & Tricks » Applikation » Sonstiges » Animierte Cursor im Programm einsetzen

Animierte Cursor im Programm einsetzen

Unter Delphi hat man die Möglichkeit eigene, animierte Cursor einzubinden. Dies geschieht mit der Routine ‚LoadCursorFromFile‘. Als Parameter wird dieser Funktion nur den Pfad zur *.ani-Datei übergeben:

procedure TForm1.FormCreate(Sender: TObject);
const
  crMyCursor = 22391;  // x-beliebige Zahl
begin
  Screen.Cursors[crMyCursor] := LoadCursorFromFile(ExtractFilePath(Application.ExeName)  + 'cursor.ani');
  Screen.Cursor := crMyCursor;
end;

Die Cursor-Konstante muss größer als 0 sein, denn ansonsten kann es Probleme mit bereits definierten Cursor-Konstanten geben. Möchte man den Cursor auch in anderen Routinen verwenden, sollte die Konstante global, d.h. z.B. im private-Abschnitt des Formulars deklariert werden.
In der Onlinehilfe befindet sich unter dem Stichwort TScreen, Cursors ein Beispiel, wie man eigene Cursors aus einer Ressource einbindet.