Delphi的IDE是本身就是一个非常精彩的软件,其中涵含了许多非常宝贵的软件知识。IDE中有一个窗体设计器,控件放在里面,就可以随意移动,以及调整大小,如果能够自己实现一个类似于这样的窗体设计器,那真是一件非常美妙事情。本文实现的就是窗体设计器中最重要的部分,一个移动控件的类,控件要求从TControl继承下来,在介绍如何实现之前,先说说这个类的用法: 其中有两个类:TDragClass就是实现拉动的类TDragPoint是控件周围出现的拉动点的类用法很简单:创建一个TDragClass对象将要实现拉动的控件传进去就行了比如:myDrag.addControl(Edit1);这样Edit1就能实现拉动和移动了。另外有两个属性来控制移动的方式isMoveStep:boolean指定移动的方式,True为跳跃式,False为连续式,默认情况下是False,即连续式。所谓跳跃式,即移动或拉动控件时,控件是以离散的方式在改变自己的位置和大小的,这个对窗体设计器中的控件对齐有帮助。而连续式,当然就是以连续的方式使控件的位置和大小得到改变。MoveStep :integer当移动方式为跳跃式时,该属性指定跳跃的大小,范围在5-20之间另外还有一个方法:SetPointVisible(value...[ 查看全文 ]