Eigener Cursor erscheint nicht

[Lumpiluk]

Mit deiner Methode hat es bei mir im RAD Studio 2009 zwar auch schonmal funktioniert, aber einfacher finde ich diese hier:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  h : THandle;
begin
  h := LoadImage(0,'cursor.ico',IMAGE_CURSOR,0,0,LR_DEFAULTSIZE or LR_LOADFROMFILE);
  Screen.Cursors[1] := h;
  Form1.Cursor := 1;
end;