From: tabarr@ix.netcom.com (Timothy Barr)
Subject: Re: Customizing Cursors
Date: 25 Apr 1995 04:53:11 GMT

Try this:

Create a cursor with Image Editor. name it CRBOMBSITE (all caps).

Create a constant named crBombSite and set it to a value  >1.

Use this code in you program in the Form1.Create procedure

   Screen.Cursors[crBombSite] := LoadCursor(hInstance,'crBombsite');
   Cursor := crBombSite;

You can use any the custom cursor in other form by setting the Cursor
property to crBombSite.
-- 
--------------------------
Wishing I had a Virtual Shotgun to take care of all these
Internet CackleDemons.  BOOM!!!! shick-shuck   <grin>
--------------------------

-------------------------------------------------------------------------------

From: Timothy Barr <tabarr@ix.netcom.com>
Subject: Re: DELPHI: Using custom cursors?
Date: 19 May 1995 13:58:31 GMT

WARNING!!! One problem I have found with Image Edit and Cursors is that 
the name of the cursor in the RES file must be ALL CAPS. For some reason 
the LoadCursor function seems to translate the string name to ALL CAPS 
before using it. 

-------------------------------------------------------------------------------

From: bimmer@ibm.net
Subject: Re: DELPHI: Using custom cursors?
Date: 16 May 1995 09:26:37 GMT

1) First create a *.res file with your cursor in. (do not use the saeme same as
your application, because delphi maintains a resourcefile with this name)

2) Delphi uses 0 .. -16 (negative number) indexes for its default cursors. Use 
a new number for your index ex. 1. (Use a constant to make readable . e.g. 
crMyCursor = 1)

3) In your main forms FormCreate event, place the following code:
Screen.Cursors[CrMyCursor]:= LoadCursor(hInstance, 'CURSORNAME'); 
(CURSORNAME is the name of the cursor in you resource file)

4) When you want to use your cursor in a form, panel or whatever just place
the following code:
Anotherform.Cursor:= crMyCursor;

Some folks believe that the cursor property contains a cursor handle... This is
NOT the case. It's a index into the component list which the Screen object
maintains.

All cursors in an application is maintained by this object.
If you want more help lookup the TScreen object, in the on-line manuals.

Hope this helps.

Regards

Bimmer (Per Bakkendorff)