说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

在程序中使用自定义的鼠标-Delphi资料

HTML文档下载 WORD文档下载 PDF文档下载
在程序中使用自定义的鼠标-Delphi资料

二. 程序部分

定义一个常数 crMyCursor

这个常数您必须设成大於零的任何整数,以 LoadCursor() 函数将

自订的鼠标资源load 进来,以下为源代码:

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.

备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘