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) 
