請問,TListBox 如何用拖移的方式達到 item.move 的效果 - Delphi K.Top 討論區

發文回覆瀏覽次數：1339

推到 Plurk!

推到 Facebook!

請問,TListBox 如何用拖移的方式達到 item.move 的效果

tony115722 一般會員發表：53 回覆：63 積分：23 註冊：2002-07-09 發送簡訊給我	#1 引用回覆回覆發表時間：2007-01-18 12:30:43 IP:59.124.xxx.xxx 訂閱請問,TListBox 如何用拖移的方式達到 item.move 的效果謝謝... ------ I like DeBug
japhen 中階會員發表：2 回覆：57 積分：71 註冊：2006-08-16 發送簡訊給我	#2 引用回覆回覆發表時間：2007-01-18 14:44:03 IP:125.229.xxx.xxx 訂閱把Listbox的dragmode屬性設成dmAutomatic 在Listbox的onDragover事件中裡加一行 accept := (Source is TListBox); 在Listbox的onDragEnd的事件中宣告一個integer變數 i var i := integer; begin if (Target is TListBox) then begin i := TListBox(Target).ItematPos(point(x,y),false); // 抓到你拖放的位置 if i >= TListBox(Target).items.count then dec(i) ; // 如果拖放的位置大於listbox的總列數(超過最後一行的空白處)，則把 i 減 1 TListBox(Target).move( TListBox(Sender).itemindex , i ); end; (以上例子只能在同一個LISTBOX中使用，如果是跨元件使用，則有不同寫法，容後再述) ------ 歡迎在大陸的台商加入我們的行列台商小棧 www.twgocn.com
tony115722 一般會員發表：53 回覆：63 積分：23 註冊：2002-07-09 發送簡訊給我	#3 引用回覆回覆發表時間：2007-01-18 17:32:06 IP:59.124.xxx.xxx 訂閱果然解決了,謝謝你.. ------ I like DeBug
japhen 中階會員發表：2 回覆：57 積分：71 註冊：2006-08-16 發送簡訊給我	#4 引用回覆回覆發表時間：2007-01-18 22:31:27 IP:210.66.xxx.xxx 訂閱也別吝於把這個論題給做個結案咯~~~~謝謝謝謝~~~ ------ 歡迎在大陸的台商加入我們的行列台商小棧 www.twgocn.com

系統時間：2024-05-15 7:41:00

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！

5151線上健康照護網 | 台灣西醫網 | 台灣中醫網 | 台灣牙科網 | 台灣照護網 | 趴趴狗旅遊網
大花蓮旅遊網 | 大花蓮民宿網 | 花蓮旅遊網 | 花蓮旅遊 | 花蓮旅遊 | 花蓮住宿
花蓮民宿網 | 花蓮旅遊 | 花蓮住宿 | 花蓮民宿 | 花蓮旅遊 | 花蓮民宿
花蓮住宿 | 大南投旅遊網 | 大南投民宿網 | 日月潭風景區 | 日月潭旅遊網 | 日月潭民宿網
日月潭住宿網 | 宜蘭旅遊網 | 宜蘭民宿網 | 宜蘭住宿網 | 宜蘭旅遊網 | 宜蘭民宿網
宜蘭住宿網 | 宜蘭旅遊網 | 宜蘭民宿網 | 宜蘭住宿網 | 台東旅遊網 | 台東民宿網
台東住宿網 | 台東旅遊網 | 台東民宿網 | 台東住宿網 | 台東旅遊 | 台東民宿
台東住宿 | 綠島旅遊網 | 綠島民宿網 | 綠島住宿網 | 綠島旅遊網 | 綠島民宿網
綠島住宿網 | 綠島旅遊網 | 綠島民宿網 | 綠島住宿網 | 集集旅遊網 | 集集民宿網
集集住宿網 | 關子嶺旅遊網 | 關子嶺民宿網 | 白河旅遊網 | 白河民宿網 | 心脈大師
尊榮牙醫診所 |