程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> Delphi編制趣味動畫鼠標

Delphi編制趣味動畫鼠標

編輯:Delphi

我們經常可以看到許多生動有趣的動畫鼠標,其實利用Delphi強大的功能,我們完全可以隨心所欲地制作有個人特色的鼠標。我制作了一個名為face的動畫鼠標,在常態時,它是一張圓圓的臉,臉上有一雙咕噜噜亂轉的大睛眼。當按下左(右)鍵時,臉的左(右)眼就眨一下。如果持續按住,則左(右)眼眨個不停。下面我以這個動畫鼠標為例,簡述如何制作動畫鼠標。

首先,在Delphi的主菜單工具下選圖像編輯器,編輯一個名為face.res的資源文件,它應該包括個人制作的五個.cur文件:faceleft.cur(圖為:圓臉上一雙向左看的眼睛),faceright.cur(圖為:圓臉上一雙向右看的眼睛),plainface.cur(圖為:圓臉上一雙向前看的眼睛),leftshrink.cur(圖為:閉著左眼的圓臉),rightshrink.cur(圖為:閉著右眼的圓臉)。

做好資源文件後,打開一個新的窗體FORM1並放置PopupMenu組件,把FORM1的屬性PopupMenu置為PopupMenu1。然後在UNIT1的INTERFACE段下加入以下代碼:

  {$ R face.res}
   並在TForm1.FormCreate事件內加入以下代碼:
   screen.cursors[1]:=LoadCursor(hInstance, pChar(′lfaceleft′));
   screen.cursors[2]:=LoadCursor(hInstance, pChar(′faceright′));
   screen.cursors[3]:=LoadCursor(hInstance, pChar(′plainface′));
   screen.cursors[4]:=LoadCursor(hInstance, pChar(′leftshrink′));
   screen.cursors[5]:=LoadCursor(hInstance, pChar(′rightshrink′));
   screen.cursor:=plainface;
   在TForm1.FormClick事件內加入以下代碼:
   screen.cursor:=faceleft;
   screen.cursor:=plainface;
   在TForm1.FormKeyDown事件內加入以下代碼:
   if button=MbLeft then
   begin
   screen.cursor:=leftshrink;
   screen.cursor:=plainface;
   end;
   if button=MbRight then
   begin
   screen.cursor:=rightshrink;
   screen.cursor:=plainface;
   end;
   ……

其余細節,請讀者補充。做完一切,運行它,生成?exe文件,OK!一個趣味動畫鼠標就編制完成,運行它你就可以看到一張生動幽默的圓臉了。當然,你還可以依你的喜好和想象來任意設計其他有趣的動畫鼠標。

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved