Benutzerdefinierter Cursor

[TomyN]

Ich hab die Cursor unter Prjekt -> Ressourcen und Bilder hinzugefügt und dann mache ich im Programm einfach folgendes

Delphi-Quellcode:

procedure TSATMAT.LoadCursors;
var CursorLoadID: Cardinal;
begin
  CursorLoadID := LoadCursor(hInstance, 'CUCURVE');
  screen.Cursors[cuCu] := CursorLoadID;
  CursorLoadID := LoadCursor(hInstance, 'CUPEQQ');
  screen.Cursors[cuPEQ] := CursorLoadID;
  CursorLoadID := LoadCursor(hInstance, 'REDDOT');
  screen.Cursors[cuRD] := CursorLoadID;
  CursorLoadID := LoadCursor(hInstance, 'CURED');
  screen.Cursors[cuRed] := CursorLoadID;
end;

Und dann halt screen.cursor := cuCu