你想使用系统的cur,只要用(-1..-22)就可
procedure TForm1.FormCreate(Sender: TObject);
begin
form1.cursor:=-4;//1-到-22可自己试用下
end;
下面说cur文件使用
*.cur文件你可以自己做,也要在自己电脑上找一些
先编辑rc文件:att cursor "attack.cur"
再加到project1.exe中
procedure TForm1.FormCreate(Sender: TObject);
begin
Screen.Cursors[1] := LoadCursor(HInstance, 'att');//这是如果是2,下面就是2Cursors[2] form1.cursor:=1;//这里是2 cursor:=2
end;
posted on 2009-01-15 21:52
小叶子 阅读(414)
评论(0) 编辑 收藏 引用 所属分类:
delphi资源文件调用