熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> Delphi編程 >> 正文

用Delphi編制趣味動畫鼠標

2013-11-11 21:05:54  來源: Delphi編程 

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

  首先在Delphi的主菜單工具下選圖像編輯器編輯一個名為faceres的資源文件它應該包括個人制作的五個cur文件faceleftcur(圖為圓臉上一雙向左看的眼睛)facerightcur(圖為圓臉上一雙向右看的眼睛)plainfacecur(圖為圓臉上一雙向前看的眼睛)leftshrinkcur(圖為閉著左眼的圓臉)rightshrinkcur(圖為閉著右眼的圓臉)

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

  {$ R faceres}

  並在TFormFormCreate事件內加入以下代碼

  screencursors[]:=LoadCursor(hInstance pChar(′lfaceleft′))
  screencursors[]:=LoadCursor(hInstance pChar(′faceright′))
  screencursors[]:=LoadCursor(hInstance pChar(′plainface′))
  screencursors[]:=LoadCursor(hInstance pChar(′leftshrink′))
  screencursors[]:=LoadCursor(hInstance pChar(′rightshrink′))
  screencursor:=plainface;

  在TFormFormClick事件內加入以下代碼

  screencursor:=faceleft;
  screencursor:=plainface;

  在TFormFormKeyDown事件內加入以下代碼

  if button=MbLeft then
  begin
  screencursor:=leftshrink;
  screencursor:=plainface;
  end;
  if button=MbRight then
  begin
  screencursor:=rightshrink;
  screencursor:=plainface;
  end;
  ……

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


From:http://tw.wingwit.com/Article/program/Delphi/201311/8490.html
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.