線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:972
推到 Plurk!
推到 Facebook!

請問以拖曳方式調整 TToolBar 的 TToolButton 位置該如何處理?

缺席
RedSnow
版主


發表:79
回覆:1322
積分:845
註冊:2003-12-15

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-11-02 18:33:45 IP:219.137.xxx.xxx 未訂閱
若想要以拖曳的方式來調整 TToolBar 的 TToolButton 位置,該怎麼寫才好?    我自己測試時碰到一些問題,我將多個 TToolButton 設置在 TToolBar 上頭,並設定為共用 OnMouseDown, OnMouseMove, OnMouseUp 事件,結果在 任何一個 TToolButton 觸發 OnMouseDown 事件後,無法在其它的 TToolButton 接收到 OnMouseUp 事件,這樣一來我就無法繼續處理下一步的動作了。 後來我做了進一步測試,將 TToolBar 改用 TPanel,然後在 TPanel 上設置數個 TSpeedButton 來代替 TToolButton,結果是可以在不同的按鈕上接收到 OnMouseUp 事件。 請問是什麼狀況導致 TToolButton 無法接收到 OnMouseUp 事件的?有無解決之道? 附註:
  • 上述的 TToolButton 及 TSpeedButton 均有設定圖示。
  • 我試過將 TToolBar 的 DockSite 設為 true,然後用 Docking 的方式來處理,這樣雖可達到調整 TToolButton 位置的目的,但是被拖曳的 TToolButton 若超出 DockSite 的範圍時,會有浮出的現象,因此目前我是以 ClipCursor() 來限制調整按鈕時的拖曳範圍,這樣子的處理過程顯得很難看,因此我還是希望能直接用 Drag 的方式來處理,但若是您有解決 Docking 時不讓 TToolButton 浮出 TToolBar 的方法,也歡迎您提供給我參考。
系統時間:2024-04-29 12:15:16
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!