Forum > General

How to load a custom cursor?

(1/1)

SnakeBR:
This code don't work, why?

procedure TForm1.Button3Click(Sender: TObject);
const
    NovoCursor = 1;
begin
  Screen.Cursors[ NovoCursor ] := LoadCursorFromFile('c:\windows\cursorsglobe.ani' );
  Cursor := NovoCursor;
end;

matthijs:
Define: "don't work".

Maybe the last line but one should be

--- Code: ---
  Screen.Cursor := NovoCursor;

--- End code ---

Navigation

[0] Message Index