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

首頁 > 編程 > Delphi > 正文

讓彩色光標出現在Delphi程序中

2019-11-18 18:41:27
字體：大 中 小
來源：轉載
供稿：網友
 在Delphi中用Loadcursor()得到的光標只有黑白兩色，怎樣在程序中得到彩色光標呢？筆者嘗試制作了以下程序：
　　方法一　用Loadcursorfromfile()從外部調入圖標作為光標
　　Loadcursorfromfile()函數可以讀＊CUR，＊ICO，＊ANI為后綴的文件作為光標，其中ICO為彩色圖標格式（可用Image Editor制作），ANI為動畫光標格式。以下為打開一圖標作為光標的演示程序段，當光標移動到測試區域內光標會變成選定的圖案；
　　{設：opendialog1:Topendialog;Bitbtn1:Tbitbtn}
　　PRocedure TForm1.BitBtn1Click(Sender:TObject);
　　var tt:pchar;size:integer;s:string;
　　begin
　　if opendialog1.Execute then
　　begin
　　size:=length(opendialog1.filename);
　　getmem(tt,size);
　　s:=opendialog1.filename;
　　strpcopy(tt,s);
　　screen.cursors[2]:=loadcursorfromfile(tt);
　　bf.cursor:=2;
　　freemem(tt,size);
　　end;
　　end;
　　方法二　從資源文件加載彩色光標
　　用方法一發送程序時必須包含＊CUR文件，因而從資源文件中加載彩色光標是更可行的方法。用圖標存放彩色光標，使用時把圖標存入臨時文件，用Loadcursorfromfile（）從臨時文件讀出彩色光標。
　　程序段：
　　procedure ZloadfromResourse(screenindex:integer;name:Pchar);
　　var td:ticon;
　　begin
　　try
　　td:=ticon.Create;
　　td.Handle:=LoadIcon(Hinstance,name);
　　td.SaveToFile(′temp.cur′);
　　screen.Cursors[screenindex]:=loadcursorfromfile(′temp.cur′);
　　deletefile(′temp.cur′);
　　finally
　　td.free;
　　end;
　　end;
　　此程序把名字為name的圖標變為序號為screenindex的光標;
　　例：
　　ZloadfromResourse(2,′myicon′);
　　Form1.cursor:=2;

上一篇：DELPHI程序中自動設置ODBC數據源

下一篇：Delphi深度探索-數據庫明了的ActiveX控件

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
學習交流
熱門圖片

新聞熱點

疑難解答

圖片精選

網友關注

亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb
国产亚洲欧美一区| 久久精品国产99国产精品澳门| 亚洲自拍欧美色图| 成人精品网站在线观看| 91免费看片在线| 亚洲人成啪啪网站| 色久欧美在线视频观看| 国产又爽又黄的激情精品视频| 欧美在线影院在线视频| 中文字幕一区电影| www.99久久热国产日韩欧美.com| 国产精品久久久久高潮| 欧美黑人视频一区| 日韩精品免费综合视频在线播放| x99av成人免费| 国产精品女人久久久久久| 国产亚洲精品美女久久久| 国产裸体写真av一区二区| 国产精彩精品视频| 性亚洲最疯狂xxxx高清| 亚洲新声在线观看| 欧美另类极品videosbestfree| 亚洲欧美国产精品专区久久| 国内精品视频一区| 日韩欧美亚洲国产一区| 久久久精品日本| 在线成人一区二区| 欧美激情在线观看视频| 美女久久久久久久久久久| 欧美激情国产日韩精品一区18| 欧美色欧美亚洲高清在线视频| 日韩精品亚洲精品| 97在线观看视频国产| 亚洲成人三级在线| 国产精品永久免费在线| 亚洲深夜福利视频| 在线视频一区二区| 亚洲欧美日韩综合| 久久国产精品久久久久久久久久| 日韩av在线不卡| 久久久成人的性感天堂| 日韩电影中文字幕一区| 日本一区二区三区四区视频| 欧美国产视频一区二区| 国产精品男人的天堂| 日韩a**站在线观看| 91视频九色网站| 亚洲人成网站777色婷婷| 日本精品视频网站| 欧美一级视频在线观看| 亚洲一区二区三区乱码aⅴ| 91社影院在线观看| 日韩精品中文字| 国产精品男女猛烈高潮激情| 狠狠操狠狠色综合网| 国产精品日本精品| 亚洲天堂av电影| 高清欧美一区二区三区| 亚洲日本中文字幕| 欧美xxxx做受欧美| 亚洲在线观看视频网站| 国产伦精品一区二区三区精品视频| 91亚洲精品一区| 精品电影在线观看| 亚洲国产精品人人爽夜夜爽| 日本高清不卡的在线| 国产精品普通话| 亚洲精品网址在线观看| 九九热r在线视频精品| 日韩av有码在线| 亚洲人a成www在线影院| 亚洲男人第一网站| 久久久久久国产精品三级玉女聊斋| 久久久女女女女999久久| 色偷偷噜噜噜亚洲男人的天堂| 色综合影院在线| 久久精品99久久香蕉国产色戒| 亚洲国产精久久久久久久| 国产精品视频一区国模私拍| 中文字幕少妇一区二区三区| 国产成人精品999| 欧美激情精品久久久久久| 91精品视频观看| 91色精品视频在线| 91网站在线看| 亚洲男女性事视频| 中日韩午夜理伦电影免费| 狠狠躁夜夜躁人人爽天天天天97| 久久久久日韩精品久久久男男| 中日韩午夜理伦电影免费| 亚洲欧美综合图区| 亚洲欧美在线看| 国产精品av网站| 亚洲视频国产视频| 国产日韩一区在线| 黑丝美女久久久| 亚洲国产天堂久久国产91| 久久久亚洲影院你懂的| 国产大片精品免费永久看nba| 亚洲精品福利免费在线观看| 欧美一级片久久久久久久| 精品一区电影国产| 久久九九精品99国产精品| 91精品久久久久久久久不口人| 久久福利视频网| 成人性生交大片免费看小说| 国产情人节一区| 国产精品丝袜一区二区三区| 欧美日韩亚洲一区二区三区| 欧美另类在线观看| 日韩中文在线视频| 亚洲男人天堂网站| 国产精品成久久久久三级| 最近更新的2019中文字幕| 国产精品三级美女白浆呻吟| 插插插亚洲综合网| 日韩av最新在线观看| 欧美国产日韩二区| 操日韩av在线电影| 亚洲一区中文字幕在线观看| 欧美日韩在线免费| 亚洲а∨天堂久久精品喷水| 久久久国产视频| 456亚洲影院| 日韩欧美高清在线视频| 最新亚洲国产精品| 久久天天躁狠狠躁夜夜躁2014| 亚洲毛片在线免费观看| 国产日韩精品入口| 怡红院精品视频| 国产一区二区日韩精品欧美精品| 91精品久久久久久久久不口人| 91免费国产视频| 欧美激情免费视频| 亚洲综合中文字幕在线| 国产精品免费在线免费| 日韩中文字幕视频在线观看| 日韩av一区在线| 精品成人在线视频| 国产精品久久婷婷六月丁香| 日韩中文字幕在线| 国模视频一区二区三区| 丝袜亚洲另类欧美重口| 亚洲国产精品va在看黑人| 一色桃子一区二区| 国产日韩在线一区| 91网站免费观看| 成人在线中文字幕| 成人一区二区电影| 国产成人jvid在线播放| 国产一区二区精品丝袜| 亚洲精品一区中文字幕乱码| 欧美夫妻性视频| 国产精品久久久久国产a级| 欧美精品激情在线观看| 国产一区二区动漫| 亚洲最大的网站| 97超碰蝌蚪网人人做人人爽| 亚洲免费人成在线视频观看| 欧美日韩国产在线播放| 亚洲精品日韩久久久| 日日狠狠久久偷偷四色综合免费| 欧美夫妻性生活视频| 中文字幕日韩综合av|