抓著圓形的Form到處跑 |
|
richtop
資深會員 發表:122 回覆:646 積分:468 註冊:2003-06-10 發送簡訊給我 |
感謝會員qoo1234提供分享"漂亮面版計算機",
雖然可以使用Windows提供的CreateXXXRgn(.)等相關函式,但考慮入門示範與簡單性
激發我嘗試以滑鼠Down,Move,Up事件與Form的TransparentColor,TransparentColorValue設定
來實作類似的畫面感覺。
Delphi version:
Builder version: 相關說明:
1.程式中使用的背景圖是利用Windows XP中的Microsoft Photo Editor(就是其內定的看圖程式)
指定透明色後,再存成bmp格式。(可以work,但我還是不太能了解其中的道理)
2.原作者在程式中使用下列語法, ReleaseCapture;
Form1.Perform(Wm_SysCommand,$F012,0); 因我不熟悉訊息的內涵,所以我又幸運的找到下列類似的程式碼(C++ Builder寫的)
Allan Petersen(www.allanpetersen.com)
並有說明,節錄如下: // ---- Release any mouse cature functionallity
ReleaseCapture();
// ---- "Fool" the mouse to hit the caption and
// ---- initiate a move command to the system
SNDMSG(Handle, WM_SYSCOMMAND, SC_MOVE + HTCAPTION, 0); 3.在C#中則可以直接引用gif圖檔,也可實作相同的效果。 看到這裡不知道大夥會不會認為我是微軟派來臥底的?? 哈!哈!天氣冷,開個玩笑! Thanks member goo1234 and the above authors again.
Enjoy it !
|
richtop
資深會員 發表:122 回覆:646 積分:468 註冊:2003-06-10 發送簡訊給我 |
忘了上傳Builder版本的程式。
因不熟悉上傳程序,所以就...。
不好意思!
http://delphi.ktop.com.tw/loadfile.php?OPICID=13186077&CC=294903
|
richtop
資深會員 發表:122 回覆:646 積分:468 註冊:2003-06-10 發送簡訊給我 |
|
領航天使
站長 發表:12216 回覆:4186 積分:4084 註冊:2001-07-25 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |