圖片移動 |
|
答題得分者是：xBaby
|
|
kan0515
中階會員   發表：56 回覆：120 積分：50 註冊：2002-06-24 發送簡訊給我 |
|||
|
jieshu
版主  發表：42 回覆：894 積分：745 註冊：2002-04-15 發送簡訊給我 |
引言: 請問一下，我在form上放了兩個圖檔 一個是地圖，不可移動 另一個則是一個小小的icon 程式在執行時 我希望使用者可以去任意移動icon的位置 但不可以超過地圖 請問該如何做 我現在連移動都不知道該如何可以拖曳移動 麻煩各位前輩幫我想想，謝謝參考底下這篇看看，要控制的好也不容易。 http://forum.vclxx.org/topic.php?TOPIC_ID=1802&FORUM_ID=4&CAT_ID=2&Topic_Title=%A6b%B0%F5%A6%E6%AE%C9%B9%B3+IDE+%AE%C9%AF%E0%A5H%A9%EC%A6%B2%AA%BA%A4%E8%A6%A1%A7%EF%C5%DC%A4%B8%A5%F3%A4j%A4p%A4%CE%A6%EC%B8m&Forum_Title=VCL
------
人生有夢，逐夢而行 人若為善，福雖未至，禍已遠離 人若為惡，禍雖未至，福已遠離 http://www.taconet.com.tw/jieshu/ |
||
|
xBaby
一般會員  發表：1 回覆：15 積分：8 註冊：2002-08-14 發送簡訊給我 |
我有一個笨方法： 將這兩個圖檔都放在 Panel 內
將Panel 的大小設為剛好放的下地圖的尺寸 設 icon 的圖檔為 IconP procedure TForm.IconPMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
IconP.Perform(WM_SysCommand, SC_MOVE or 2, 0); // enable move
end; 這樣 Icon 就可以到處移動且不會跑出地圖外了。
|
||
|
kan0515
中階會員 發表：56 回覆：120 積分：50 註冊：2002-06-24 發送簡訊給我 |
發表時間：2002-10-04 17:47:01
IP:211.23.xxx.xxx 未訂閱
系統時間：2024-05-20 12:43:39
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |