明輝手游網(wǎng)中心：是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺！

程序中使用自定義的鼠標

發(fā)表時間：2024-02-22 來源：明輝站整理相關(guān)軟件相關(guān)文章人氣：

[摘要]一.建立工程與一個資源檔用Image Editor編輯一個鼠游標　�。‵ild New Resource File）新建一個 CURSOR_1 的 CURSOR, 設(shè)定好它的 Hot Spot　�。–ursor Set Hot Spot）存檔時注意要和建立的Project存在同一個目錄...
一.建立工程與一個資源檔
用Image Editor編輯一個鼠游標
　�。‵ild New Resource File）
新建一個 CURSOR_1 的 CURSOR, 設(shè)定好它的 Hot Spot
　�。–ursor Set Hot Spot）
存檔時注意要和建立的Project存在同一個目錄
在本例我們先假定為 MyCursor.res
二. 程序部分
定義一個常數(shù)crMyCursor, 這個常數(shù)您必須設(shè)成大於零
的任何整數(shù)， 以 LoadCursor() 函數(shù)將自訂的鼠標資源
load 進來， 以下為源代碼：
// unit.pas
unit Unit1;
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes,
Graphics, Controls, Forms, Dialogs;
const
crMyCursor = 1; (* 宣告一個常數(shù) *)
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.