在使用DELPHI進行編程時,有一個很重要的對象──TSCREEN,它是用來管理和操縱運行時期屏幕的不可視構件。它的CURSOR屬性是用來指定各個不同的構件光標形狀,聲名為:
PROPERTY CURSORS[INDEX:INTEGER]:HCURSOR;
這個只讀的特性返回應用程序支持的光標組成的一個HCURSOR類型的數組,它存儲了屏幕上所有的鼠標光標的身份代碼(HCURSOR就是光標的HANDLE句柄),數組下標從0開始,在DELPHI預定義了一些代表不同光標的常量,它的值是從0到-17,您可以直接指定程序使用的光標。如:
FORM1.CURSOR:=-3表示FORM1采用的光標是CRCROSS(十字)。
大家可能都會發現構件的CURSOR的屬性最多提供十八種常用的CURSOR值,這在很多的情況下是不夠的,如:當光標進入一個PANEL面板時光標的形狀為一只手,那么PANEL的CURSOR就不能滿足這種要求,這時就需要我們自定義一個手的光標并將其賦給PANEL的CURSOR屬性。如何實現則可以按以下步驟進行:
使用資源文件編輯器(IMAGE EDITOR或者RESOURCE WORKSHOP)編寫資源文件。
定義一個光標常量,注意這個常量不能與DELPHI中提供的光標常量相沖突。在FORMCREATE事件中使用WINDOWSAPI當中的LOADCURSOR函數來載入自定義的CURSOR。
在程序中將自定義的CURSOR分配給PANEL的CURSOR屬性。
下面說明如何將自定義的一只手的鼠標光標賦給PANEL1的CURSOR屬性。首先使用IMAGEEDITOR建立一個HAND.RES的文件。之后按如下書寫程序代碼:
implementation
{$R*.DFM}
const
Crhand=2;
延伸閱讀
文章來源于領測軟件測試網 http://www.kjueaiud.com/