Solved

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

Posted on 2002-03-04
5
219 Views
Last Modified: 2010-04-05
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
Comment
Question by:kretzschmar
  • 4
5 Comments
 
LVL 9

Expert Comment

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

0
 
LVL 9

Expert Comment

by:ginsonic
ID: 6838888
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
 
LVL 9

Accepted Solution

by:
ginsonic earned 25 total points
ID: 6838952
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
 
LVL 27

Author Comment

by:kretzschmar
ID: 6839544
yep, thats it
0
 
LVL 9

Expert Comment

by:ginsonic
ID: 6840861
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

How your wiki can always stay up-to-date

Quip doubles as a “living” wiki and a project management tool that evolves with your organization. As you finish projects in Quip, the work remains, easily accessible to all team members, new and old.
- Increase transparency
- Onboard new hires faster
- Access from mobile/offline

Join & Write a Comment

Suggested Solutions

The uses clause is one of those things that just tends to grow and grow. Most of the time this is in the main form, as it's from this form that all others are called. If you have a big application (including many forms), the uses clause in the in…
Introduction I have seen many questions in this Delphi topic area where queries in threads are needed or suggested. I know bumped into a similar need. This article will address some of the concepts when dealing with a multithreaded delphi database…
Internet Business Fax to Email Made Easy - With eFax Corporate (http://www.enterprise.efax.com), you'll receive a dedicated online fax number, which is used the same way as a typical analog fax number. You'll receive secure faxes in your email, fr…
In this tutorial you'll learn about bandwidth monitoring with flows and packet sniffing with our network monitoring solution PRTG Network Monitor (https://www.paessler.com/prtg). If you're interested in additional methods for monitoring bandwidt…

705 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

12 Experts available now in Live!

Get 1:1 Help Now