Einzelnen Beitrag anzeigen

Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.442 Beiträge
 
Delphi 12 Athens
 
#10

AW: Animiertes LoadCursor?

  Alt 23. Sep 2016, 19:05
Das Beispiel in Berlin habe ich direkt mit dem Menüpunkt Projekt - Ressourcen und Bilder hinzugefügt und den Typ einfach auf CURSOR geändert. Das führt zu folgender RC-Datei:
AniCursor CURSOR "C:\\WINDOWS\\Cursors\\aero_working.ani"
Der Code zum Laden sieht dann so aus:

Delphi-Quellcode:
procedure TForm126.FormCreate(Sender: TObject);
var
  cur: HCURSOR;
begin
  cur := LoadCursor(HInstance, 'AniCursor');
  Screen.Cursors[1] := cur;
  Cursor := 1;
end;
Als Resourcen-Compiler verwende ich den mitgelieferten brcc32.exe Dateiversion 50.4.227.0.
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat