Delphi TCursor[3] TControl.Cursor自定义光标

Delphi TCursor[3] TControl.Cursor

指定鼠标指针进入控件覆盖的区域时用于表示鼠标指针的图像。

?

1	property Cursor: TCursor;

更改光标的值，以便在鼠标指针进入控件时向用户提供反馈。游标的值是全局变量Screen维护的游标列表中游标的索引。除了TScreen提供的内置游标之外，应用程序还可以向列表中添加自定义游标。　　

 

示例：//向应用程序添加自定义光标

?

1 2 3 4 5 6 7

const   crMyCursor = 5; procedure TForm1.FormCreate(Sender: TObject); begin   Screen.Cursors[crMyCursor] := LoadCursor(HInstance, 'TaoRoy');   Cursor := crMyCursor; end;

它假定已将名为NewCursor的自定义光标添加到应用程序的资源（.RES文件）中。可以使用图像编辑器添加光标。（工具|图像编辑器）

下面的代码通过常量crMyCursor使该光标对应用程序可用，并将其设置为应用程序的全局光标。

 

 

 

 

 

 

 

创建时间：2022.05.19　　更新时间：2022.05.20