Go Premium for a chance to win a PS4. Enter to Win

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 230
  • Last Modified:

qow 9: how to load an animated mousecursor from resource?

hi experts,

i am starting a new quest: qow = question of the week :-)
each week i will introduce a new simple? question.

now qow 9

the first working solution will get the points (a graded).

sorry, top 15 experts, you are not allowed to solve this
q, only other can solve this question :-(

well the question is:
how to load an animated mousecursor from resource?
let see


meikl ;-)
0
kretzschmar
Asked:
kretzschmar
  • 4
1 Solution
 
ginsonicCommented:
procedure TForm1.FormCreate(Sender: TObject);
 const NewCursor = 1;
begin
 Screen.Cursors[NewCursor] :=
    LoadCursor(hInstance,'BANANA');
 Cursor := NewCursor;
end;

0
 
ginsonicCommented:
Or better :

{$R banana.res}

procedure TForm1.FormCreate(Sender: TObject);
const NewCursor = 1;
begin
 Screen.Cursors[NewCursor] := LoadCursor(hInstance,'BANANA');
 Screen.Cursor := NewCursor;

end;
0
 
ginsonicCommented:
A very good sample can be found at:

http://www.howtodothings.com/showarticle.asp?article=288

Because is copyrighted I put just the link .
And I think that isn't over the rules of qoe ( no restriction about alike solutions ).
0
 
kretzschmarAuthor Commented:
yep, thats it
0
 
ginsonicCommented:
Maybe is better to wait , I repeat myself, the better solution and not the first working one .

I participate to this contest to learn more, not for points, but THANKS.

Best regards,
Nick

P.S. Damn I lose previous questions :)
0

Featured Post

Concerto Cloud for Software Providers & ISVs

Can Concerto Cloud Services help you focus on evolving your application offerings, while delivering the best cloud experience to your customers? From DevOps to revenue models and customer support, the answer is yes!

Learn how Concerto can help you.

  • 4
Tackle projects and never again get stuck behind a technical roadblock.
Join Now