请教如何使用自定义的cursor？(50分)

如何把自己画的cursor加到工程的resource文件里？

你只要使用DELPHI自己带的IMAGE EDIT，生成一个资源文件，在里面
生成一个CURSOR，在DELPHI中，用{$r 文件名}就可以使用了。

记住不要添加到和工程名同名的资源文件里,那个文件是Delphi自己生成的.每次编译都重新生成.

来自：wjiachun 时间：00-4-8 13:33:39 ID:215637
关于 http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=214162
我这里测试没有问题，而你又不去看，只能让你进来啦
***************************************************]
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation
{$R *.DFM}
{$R myres.res}//这一行必须有

procedure ZloadfromResourse(screenindex:integer;namechar);
var td:ticon;
begin
try
td:=ticon.Create;
td.Handle:=LoadIcon(Hinstance,name);
td.SaveToFile('temp.cur');
screen.Cursors[screenindex]:=loadcursorfromfile('temp.cur');
deletefile('temp.cur');
finally
td.free;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ZloadfromResourse(2,'icon1');//注意在资源文件中用大写 ICON1，你可以画出任意形状和颜色
Form1.cursor:=2;
end;

end.

谢谢wjiachun！回答的很仔细