animierter Cursor: Ressourcen-Datei erstellen?

[MrKnogge]

Ok,

• 1. Öffne das Windows Notepad und schreibe folgende Zeile:
  
  Code:

  Cursor_1 CUR "C:\cursor.cur"

  Und speicher diese unter MeinCursor.rc ab.
  
• 2. Starte die brcc32.exe mit der obigen Datei als Parameter
  Am einfachsten: Verküpfung auf die brcc32.exe (C:\Programme\Borland\Delphi7\Bin\brcc32.exe) erstellen und die obige Datei einfach auf die Verknüpfung ziehen.
  
• 3. Nun befindet sich im Ordner der MeinCursor.rc eine MeinCursor.res.
  
• 4. Als nächstes schreibst du in deiner Unit
  {$R MeinCursor.res} der Übersicht wegen am besten nach {$R *.dfm}
• 5. Zugriff auf deinen Cursor hast du nun mit:
  
  Delphi-Quellcode:

  Const
    crMyCursor = 4711;
  
  ...
  
  // laden
  Screen.Cursors[crMyCursor] := LoadCursor(HInstance, 'Cursor_1');
  
  // anzeigen
  screen.cursor:=crMyCursor;

Gruß