How to load a custom cursor?
lazarus / 3-General

----------------------------------------------------------------------
SnakeBR · 2005-12-20 21:15

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 · 2005-12-21 06:49

Define: "don't work".

Maybe the last line but one should be
Code: [Select]
  Screen.Cursor := NovoCursor;