程序中使用自定义的鼠标

来源：逸仙时空 作者：- 出处：巧巧读书 2005-11-23 进入讨论组

• 关 键 词：
• crm

?建立工程与一个资源档

用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.

--专题:http://www.qqread.com/vc/x920923020.html进入讨论组讨论。

【收藏此文】【大 中 小】【打印】【关闭】

较早的文章：设计网络服务器ISAPI

较新的文章：VC下用串口与电台通信需注意的问题