SupperMMX:请进来一下(0分)

关于 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.

看了，已经答了，当时没注意。
哈哈， 我也想到了，只是觉得不太好，想找一个直接的办法。
不管怎么样，谢谢！！！ 再说我没说你的不对呀，呵呵。

结束吧。

>>哈哈， 我也想到了，只是觉得不太好，想找一个直接的办法。
呵呵，能不能说说你的直接的办法？？

这不是没找到才问的吗？找到了我还问？
怎么把资源中的资源号直接和程序挂钩，
vc 中简单了。
我原来做了一个 string 的，忘了怎么做的了，
好象比这个要简单。

那就算了