就是在程式執行時可以進入設計模式讓使用者自由的拉動元件的位置和大小，其特點就是基本上絕大部份可視元件都可以支援 (即使沒有 onMouseXXX 事件的如 TMonthCalendar 都支援但 MainMenu 那些沒法)，而且完全不需要設定甚麼，放上 Form / Containaer 便可以了。    測試說明 :  1. 執行程式後按按 Button 1 及 把 Cursor 在 Label1 上移動，看看原本的 onClick 及 onMouseMove Event 的執行 2. 在 MainMenu 按 Design, 之後便可任意拉大小位置了。注意 onClick / onMouseMove 等在 Design 模式時暫不執行 3. 移完後按 Normal 回到一般模式，留意 onClick / onMouseMove 等事件還原了。    這次發表玩點新花款加強互動性，發表時附執行檔及部份程式碼(包括整個架構)，但在幾個重點位置的源碼暫不發表。    這樣，大家若有做過或有興趣的可 post 上你認為最好的程式碼，很可能比我原本的好很多呢。    在本題得分達到 9,12,15 分時將會在這篇補上部份程式碼,18 分時將會補上所有程式碼。若得不到分即是說作品失敗登不登出來也沒甚麼關係囉< > 若你急著用可寄短訊給我，不過要先給分喔< > 原理將會在本期電子報先稍作說明。 其實這可寫成元件只要放在 Form 中就加上這功能而在 Form 中不用再加任程式碼的，還可 include / exclude 某些元件哩。 本作品移動部分有參考 hahalin 版主的 : 網咖管理金剛組合版 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=28622 我沒在在這範例寫儲存的部分因為我是用自制元件儲存所有資料 (包括使用者輸入的資料) 但那些自制元件暫不成熟及不便公開。 若你想自制儲存功能的可參考上面 hahalin 版主的發表。

附加檔案：31513_RunTimeMoveResize.zip

Justmade大大....    快點啦.....我要全部的原始碼.... 前些天我也試著做這個 >

程式碼已全部補上，謝謝大家。 原理及程式碼全解說可參看 : http://delphi.ktop.com.tw/topic.php?TOPIC_ID=31557 若對程式碼有任何問題請在該篇提出，謝謝。

感謝版主無私的付出.....    在這裡代表大家向您說聲....Thanks!!

這裡也有個C++ Builder的範例 http://netcity1.web.hinet.net/userdata/nep2314/ 作者:許湞翔 示範如何在執行時期改變 VCL 的位置、大小，就像在 BCB IDE 環境中安排元件一樣。 下載位置一: Delphi K.Top討論區檔案下載 Resize.zip 下載位置二:星點子工作室 Resize.zip HAVE A NICE DAY 發表人 - axsoft 於 2003/06/03 17:09:08

thank you very much

這個是你原創嗎？ 我很早以前就看到過這個程示了啊。。。

順便問一下大大，如果在同一層要控制元件互相不能重疊要怎麼作？