这是我写的一个Demo,我的ADOSQL中打印模块的核心就是在其基础上建立起来的,当然了修改完善了很多,下面这个Demo还是有BUG的,但是不妨碍你获取编程思想.
功能:在运行期可以选择控件,并在控件的四周出现八个黑点,可以用鼠标拖放这八个点来调整控件的大小, 按Shift+鼠标左键多选,Ctrl+拖动鼠标左键画框,将框中的所有控件选中
说明:八个黑点对应顺序
□□□ 0 3 5
□ □ => 1 6
□□□ 2 4 7
下载地址:http://ph11.go.nease.net/delphi/Select.zip