W
wind2000
Unregistered / Unconfirmed
GUEST, unregistred user!
{********************************************************}
{ 作者: wind2000 }
{ 创建日期: 2002.07.15 }
{最后修改日期: 2002.07.17 }
{========================================================}
{功能:在运行期可以选择控件，并在控件的四周出现八个 }
{ 黑点,可以用鼠标拖放这八个点来调整控件的大小, }
{ 按Shift+鼠标左键多选,Ctrl+拖动鼠标左键画框,将 }
{ 框中的所有控件选中 }
{说明:八个黑点对应顺序 }
{ □□□ 0 3 5 }
{ □ □ => 1 6 }
{ □□□ 2 4 7 }
{********************************************************}
开载地址:
http://go8.163.com/windstorm2000/delphi/Select.zip
作者主页:http://ph11.126.com
缺陷:
1.按Ctrl+鼠标左键拖动时画出的框会被一些控件挡住(不影响选取控件),
而不会象Delphi那样总是在所有控件的最前面画框
2.按Ctrl+鼠标左键拖动时只能选择"父亲"为Form的控件，因为我画框是在画布(Canvas)上
用Rectangle直接画的，有些控件(如TPanel)没有Canvas属性，所以没法画，大家可以想想用
其它方法使得画出来的框总在所有控件的上面，并且可以选择"父亲"不一定是Form的控件
{ 作者: wind2000 }
{ 创建日期: 2002.07.15 }
{最后修改日期: 2002.07.17 }
{========================================================}
{功能:在运行期可以选择控件，并在控件的四周出现八个 }
{ 黑点,可以用鼠标拖放这八个点来调整控件的大小, }
{ 按Shift+鼠标左键多选,Ctrl+拖动鼠标左键画框,将 }
{ 框中的所有控件选中 }
{说明:八个黑点对应顺序 }
{ □□□ 0 3 5 }
{ □ □ => 1 6 }
{ □□□ 2 4 7 }
{********************************************************}
开载地址:
http://go8.163.com/windstorm2000/delphi/Select.zip
作者主页:http://ph11.126.com
缺陷:
1.按Ctrl+鼠标左键拖动时画出的框会被一些控件挡住(不影响选取控件),
而不会象Delphi那样总是在所有控件的最前面画框
2.按Ctrl+鼠标左键拖动时只能选择"父亲"为Form的控件，因为我画框是在画布(Canvas)上
用Rectangle直接画的，有些控件(如TPanel)没有Canvas属性，所以没法画，大家可以想想用
其它方法使得画出来的框总在所有控件的上面，并且可以选择"父亲"不一定是Form的控件