Cursor per Resource einbinden

[XXcD]

Hallo,
ich versuche seit ca. 6 stunden einen Cursor per Resource inzubinden. Das will aber einfach nicht klappen.
Hier mal der Code:

Datei.rc

Code:

test123 ANICURSOR "cursor.ani"

Quellcode

Delphi-Quellcode:

{$R Datei.RES}
...
procedure TForm5.Button1Click(Sender: TObject);
Const  crMyCursor = 4711;
begin
Screen.Cursors[crMyCursor] :=  LoadCursor(hInstance,'test123');
Screen.cursor:=crMyCursor;
end;

Wenn ich auf Button1 kliccke passiert garnichts.
Woran könnte das liegen???

[marabu]

Moin,

vermutlich hat deine Cursor-Ressource nicht das korrekte Format.

Delphi-Quellcode:

procedure TForm5.Button1Click(Sender: TObject);
const
  crMyCursor = 4711;
var
  h: TCursor;
begin
  h := LoadCursor(hInstance, 'test123');
  if h = 0 then
    ShowMessage(SysErrorMessage(GetLastError)) else
  begin
    Screen.Cursors[crMyCursor] := h;
    Screen.Cursor := crMyCursor;
  end;
end;

Grüße vom marabu

[Reinhard Kern]

Zitat:

Zitat von XXcD

Hallo,
ich versuche seit ca. 6 stunden einen Cursor per Resource inzubinden. Das will aber einfach nicht klappen.
....
Wenn ich auf Button1 kliccke passiert garnichts.
Woran könnte das liegen???

Eine Cursor-Resource enthält 2 Bitmaps und Infos über den Hot Spot. Animierte Cursors natürlich noch mehr.

Gruss Reinhard

[XXcD]

Also mir ist aufgefallen ich hatte noch nen kleinen Fehler in der .rc Datei. Das ist jetzt aber editiert.
Ich kann auch keine Bilder einbinden also frage ich mich ob jemand ein Tutorial hat das auf jeden Fall funktioniert.

[DeddyH]

Vielleicht hilft dies hier (hab' s mir nicht näher angesehen): http://www.delphiforfun.org/Programs...tedCursors.htm

[Blackheart]

Wie schon erwähnt muss auch das "richtige" Format vorliegen
test123 ANICURSOR "MyCursor.ani"
test123 CURSOR "MyCursor.cur"
Und nicht nur die Dateiendung ändern. :wink:
Am einfachsten die brcc32.exe in deinen Projektordner kopieren wo auch
die Cursordatei liegt und einfach die .rc per Drag & Drop draufziehen.

[XXcD]

Also hab das Problem jetzt gelöst. Habe einfach nen neuen Cursor erstellt und den dann eingebunden.
Und mit dem Drag&Drop das wußte ich noch garnicht. Danke :-D