亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb

首頁 > 編程 > Delphi > 正文

Delphi編程中實現動畫鼠標

2019-11-17 05:51:11
字體：大 中 小
來源：轉載
供稿：網友
動畫光標是以ANI為擴展名的文件,它的作用就是讓你的鼠標外形變成動畫,而不只是一個斜三角形，具體方法如下：
　　新建一個工程,在FORM1上放一個BUTTON1,再找一個動畫光標文件＊.ANI,你可以到網上下載一個,也可從一些光盤中找一個(如：查找＊.ANI文件),然后輸入以下代碼：
　　unit CURSOR;
　　interface
　　uses
　　Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
　　Type TForm1 = class(Tform)
　　Button1: Tbutton;
　　PRocedure FormCreate(Sender: Tobject);
　　procedure FormClose(Sender: Tobject; var Action: TCloseAction);
　　procedure Button1Click(Sender: Tobject);
　　private { Private declarations }
　　public { Public declarations }
　　end;
　　var
　　Form1: TForm1;
　　HOLDCURSOR:HCURSOR; ′定義一個變量
　　Implementation {＄R ＊.DFM}
　　procedure TForm1.FormCreate(Sender: Tobject);
　　VAR
　　HNEWCURSOR:HCURSOR;
　　begin
　　BUTTON1.CAPTION:=′關閉′;
　　HNEWCURSOR:=LOADCURSORFROMFILE(′E:/BATMAN.ANI′);
　　{調用API函數裝載動畫光標文件,ANI文件路徑請根據自己的實際情況進行調整}
　　HOLDCURSOR:=SETCLASSLONG(FORM1.HANDLE,GCL_HCURSOR,HNEWCURSOR);
　　{把原光標儲存起來以備以后的恢復}
　　end;
　　procedure TForm1.Button1Click(Sender: Tobject);
　　begin
　　HOLDCURSOR:=SETCLASSLONG(FORM1.HANDLE,GCL_HCURSOR,HOLDCURSOR);
　　CLOSE(); {在結束程序前一定不要忘記恢復光標}
end;
end.
　　現在你運行一下(按F9),啟動后光標就變成動畫光標了。

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表

圖片精選

亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb
亚洲视频一区二区三区| 久久精品视频99| 国产91精品在线播放| 欧美激情一区二区三区在线视频观看| 欧美电影在线观看完整版| 精品国产91久久久久久| 国内精品视频一区| 国产美女91呻吟求| 日韩免费在线看| 日韩视频永久免费观看| 国产91ⅴ在线精品免费观看| 性色av一区二区三区免费| 欧美人在线观看| 日本免费一区二区三区视频观看| 亚洲第一中文字幕在线观看| 亚洲奶大毛多的老太婆| 久久亚洲精品国产亚洲老地址| 亚洲一区中文字幕| 欧美在线视频免费播放| 欧美在线视频在线播放完整版免费观看| 亚洲欧美成人一区二区在线电影| 伊人伊成久久人综合网小说| 92版电视剧仙鹤神针在线观看| 最近2019中文字幕一页二页| 97超碰色婷婷| 国产亚洲激情视频在线| 国产suv精品一区二区三区88区| 在线播放日韩精品| 国产欧美日韩高清| 欧美性猛交xxxx免费看漫画| 亚洲激情小视频| 精品久久久久久中文字幕| 97在线精品国自产拍中文| 欧美限制级电影在线观看| 日韩激情av在线免费观看| 欧美日韩一区免费| 91九色精品视频| 国产日韩视频在线观看| 欧美极品少妇与黑人| 日韩国产中文字幕| 亚洲欧美日韩天堂一区二区| 日韩国产中文字幕| 国色天香2019中文字幕在线观看| 久久亚洲国产精品成人av秋霞| 91在线高清免费观看| 亚洲高清福利视频| 成人黄色短视频在线观看| 欧美激情在线狂野欧美精品| 久久久久成人网| 国产97在线观看| 一区二区三区视频免费| 欧美成人精品一区二区三区| 亚洲欧美日韩精品久久亚洲区| 欧美日韩中文在线观看| 亚洲一区亚洲二区| 日韩有码在线电影| 亚洲深夜福利视频| 91久久中文字幕| 欧美亚洲激情视频| 疯狂蹂躏欧美一区二区精品| 黑人精品xxx一区| 亚洲国产精品一区二区三区| 欧美视频在线观看免费网址| 成人a在线视频| 欧美一级片久久久久久久| 久久久亚洲影院| 欧美专区中文字幕| 亚洲毛片在线观看| 狠狠色狠色综合曰曰| 亚洲国产精品字幕| 亚洲免费精彩视频| 日本一欧美一欧美一亚洲视频| 亚洲福利在线观看| 国产精品69久久| 色视频www在线播放国产成人| 亚洲精品永久免费精品| 日韩激情视频在线播放| 国产成人一区二区三区电影| 国产亚洲成精品久久| 日韩精品在线播放| 欧美激情视频给我| 久久久久久久久国产精品| 欧美精品一本久久男人的天堂| 久久久噜噜噜久久久| 亚洲大胆美女视频| 国产一区视频在线播放| 亚洲日本成人女熟在线观看| 91高清视频免费观看| 2019中文字幕在线观看| 亚洲人高潮女人毛茸茸| 日本国产高清不卡| 欧美黄色片免费观看| 国产一区二区三区视频| 性欧美激情精品| 国产精品欧美在线| 中文字幕欧美日韩| 亚洲欧洲自拍偷拍| 亚洲成人性视频| 欧美激情xxxxx| 日本免费在线精品| 在线视频欧美日韩精品| 欧美激情精品久久久久久免费印度| 亚洲a∨日韩av高清在线观看| 夜夜嗨av一区二区三区免费区| 国产一区二区免费| 国产精品久久网| 国产精品免费视频久久久| 国产精品美女主播在线观看纯欲| 青青草原一区二区| 日日摸夜夜添一区| 欧美激情国产日韩精品一区18| 亚洲图片欧美午夜| 色在人av网站天堂精品| 国产精品v片在线观看不卡| 日韩中文字幕在线播放| 在线播放亚洲激情| 国产不卡av在线免费观看| 色悠悠国产精品| 欧美交受高潮1| 久久精品这里热有精品| 亚洲国模精品私拍| 国产精品一区二区3区| 国产手机视频精品| 日韩美女在线看| 91中文字幕在线| 国产精品www网站| 中日韩美女免费视频网站在线观看| 国产精品久久久久久久久借妻| 超碰日本道色综合久久综合| 久久精品中文字幕电影| 久久精品一区中文字幕| 国产精品久久久久aaaa九色| 青青久久av北条麻妃海外网| 91青草视频久久| 欧美成人午夜免费视在线看片| 欧洲精品毛片网站| www.日韩系列| 成人免费午夜电影| 日本高清视频精品| 在线色欧美三级视频| 日韩电影在线观看免费| 欧美夫妻性生活视频| 影音先锋欧美在线资源| 国产精品视频精品| 亚洲国产精品va在线| 97在线日本国产| 亚洲视频电影图片偷拍一区| 激情亚洲一区二区三区四区| 最新日韩中文字幕| 欧美日韩第一视频| 国产精品第七影院| 亚洲午夜精品视频| 国产精品美女久久久久久免费| 亚洲国产精品资源| 日韩视频在线免费| 亚洲国产精品美女| 午夜精品视频在线| 啪一啪鲁一鲁2019在线视频| 欧美激情小视频| 91中文在线观看| 日韩大片在线观看视频| 最好看的2019的中文字幕视频| 91九色视频在线| 欧美黑人性猛交|