Cursor Resource Einbinden klapt nicht warum ?

[chaosben]

Zitat von Die Delphi-Hilfe:

Deklarieren Sie eine Cursor-Konstante, die nicht mit vorhandenen Cursor-Konstanten kollidiert.

1 und 2 kollidieren bei dir scheinbar mit einem bestehenden Cursor.
So müsste es theoretisch immer funktionieren:

Delphi-Quellcode:

var
  crMeine : Integer;

procedure TForm1.FormCreate(Sender: TObject);
begin
  crMeine := Screen.CursorCount + 1;
  Screen.Cursors[crMeine] := LoadCursor(HInstance, '3DWMOVE');
  PaintBox1.Cursor := crMeine;
end;