[Webinar] Streamline your web hosting managementRegister Today

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 232
  • 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

Free Tool: IP Lookup

Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

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