怎样改变程序中的鼠标指针? 怎样改变程序中的鼠标指针?我指的不是通过改变窗体属性中的鼠标指钍项进行设置。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 一.建立工程与一个资源档用Image Editor编辑一个鼠游标 (Fild | New | Resource File)新建一个 CURSOR_1 的 CURSOR, 设定好它的 Hot Spot (Cursor | Set Hot Spot)存档时注意要和建立的Project存在同一个目录在本例我们先假定为 MyCursor.res二. 程序部分定义一个常数crMyCursor, 这个常数您必须设成大於零的任何整数, 以 LoadCursor() 函数将自订的鼠标资源load 进来, 以下为源代码:// unit.pasunit Unit1;interfaceusesSysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Forms, Dialogs;constcrMyCursor = 1; (* 宣告一个常数 *)typeTForm1 = class(TForm)procedure FormCreate(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varForm1: TForm1;{$R mycursor.res}//这行$R不可少, 否则自订的鼠游标就出不来了implementation{$R *.DFM}procedure TForm1.FormCreate(Sender: TObject);begin//将鼠标资源 load 进来 Screen.Cursors[crMyCursor] := LoadCursor (hInstance,'CURSOR_1');Cursor := crMyCursor;//指定 form1 的 cursor 为自订鼠标Button1.Cursor := crMyCursor;//指定Button1的cursor为自订鼠标end;end. try screen.cursor:=crHourGlass; ....放入你的代码finally screen.cursor:=crDefaultend; 又拖欠民工工资了,各位给点意见,看看能否把工资要回来???帮兄弟一把 对高手来说太简单了,数据类型转换?? 有关数据源的使用方法 怎样利用COM1进行串行接口的编程:————?!??!? olecontainer问题,高手请指点 怎么样屏蔽win98,win2000的热键 dbgrideh多标头导出excel 有意者请看看,建筑项目(一套管理系统) 关于排序后不能编辑的问题 有关report的问题 如何点击一个下级treeview节点时,依次得到这个节点连接到顶级节点的每个父节点 如何人让label透明
用Image Editor编辑一个鼠游标
(Fild | New | Resource File)
新建一个 CURSOR_1 的 CURSOR, 设定好它的 Hot Spot
(Cursor | Set Hot Spot)
存档时注意要和建立的Project存在同一个目录
在本例我们先假定为 MyCursor.res
二. 程序部分
定义一个常数crMyCursor, 这个常数您必须设成大於零
的任何整数, 以 LoadCursor() 函数将自订的鼠标资源
load 进来, 以下为源代码:
// unit.pas
unit Unit1;
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes,
Graphics, Controls, Forms, Dialogs;const
crMyCursor = 1; (* 宣告一个常数 *)
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
{$R mycursor.res}//这行$R不可少, 否则自订的鼠游标就出不来了
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
//将鼠标资源 load 进来
Screen.Cursors[crMyCursor] := LoadCursor (hInstance,'CURSOR_1');
Cursor := crMyCursor;//指定 form1 的 cursor 为自订鼠标
Button1.Cursor := crMyCursor;//指定Button1的cursor为自订鼠标
end;
end.
screen.cursor:=crHourGlass;
....放入你的代码
finally
screen.cursor:=crDefault
end;