Animiertes LoadCursor?

Thema durchsuchen

Ansicht

Themen-Optionen

Ein Thema von himitsu · begonnen am 22. Sep 2016 · letzter Beitrag vom 25. Sep 2016

Vorheriger Beitrag

Nächster Beitrag

Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.639 Beiträge

Delphi 12 Athens

#10

AW: Animiertes LoadCursor?

23. Sep 2016, 18: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:

markieren

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.