抓著圓形的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 發送簡訊給我 |
發表時間：2003-12-14 13:01:02
IP:211.76.xxx.xxx 未訂閱
附加檔案：系統時間：2024-05-05 16:01:32
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |