Recent

Author Topic: How to load a custom cursor?  (Read 5650 times)

SnakeBR

  • Guest
How to load a custom cursor?
« on: December 20, 2005, 10:15:19 pm »
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

  • Hero Member
  • *****
  • Posts: 537
RE: How to load a custom cursor?
« Reply #1 on: December 21, 2005, 07:49:33 am »
Define: "don't work".

Maybe the last line but one should be
Code: [Select]

  Screen.Cursor := NovoCursor;
What's in a sig? Would my posting look less if it didnot have a sig? (Free after William S.) :)

:( Why cannot I upload my own Avatar? :(