|
FConMouseMove:TMouseMoveEvent;
FConMouseup:TMouseEvent;
这三个事件方法指针指向所有传进来的控件的鼠标事件的处理函数，在Create中将得到赋值。而所有控件的鼠标处理函数将在类中实现。
接下来就到了最重要的成员了：FPointRec:TPointRec;这是一个记录类型，其定义为：
TPointRec=record
LeftTop:TDragPoint;
LeftBottom:TDragPoint;
RightTop:TDragPoint;
RightButton:TDragPoint;
LeftMid:TDragPoint;
TopMid:TDragPoint;
RightMid:TDragPoint;
ButtonMid:TDragPoint;
end;
这正是当前被移动控件边缘的八个点。这八个点会粘在被移动控件的边缘。
上面说过该类可以实现跳跃式移动或拉动则必定有相关的成员： FisMoveStep:Boolean;
FMoveStep:integer;
MoveX,MoveY:integer;
FisMoveStep指定是否为跳跃式，FMoveStep为跳跃的幅度，MoveX,MoveY标识控件移动或拉动的距离是否达到了FMoveStep，是就改变控件位置和大小，如此重复
除了上面那些成员，类中还定义了一些相类的方法，大概如下：
//-------对移动点类的操作—
//创建移动点类
procedure CreateDragPoint(PointParent:TWinControl);
//设定移动点类的位置
procedure SetPointPos(posRect:TRect);
//指定移动点类的父窗口
procedure SetPointParent(PointParent:TWinControl);
//设置移动点类的鼠标事件
procedure SetPointEvent;
//设置移动点类的可见性
procedure SetPointVisible(Visibled:Boolean);
//三个控件事件处理函数，所有控件的鼠标处理函数都将是这个，主要是解决控件的移动
//以及移动点类的位置，当你点击某一个控件的时候，移动点类会附着到这个控件的边缘
procedure ConMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure ConMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure ConMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
//移动点类的鼠标处理事件，解决移动点类的移动，以及当前控件的大小改变
procedure PointMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure PointMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure PointMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
最后一个重要方法是function addControl(AddCon:Pointer):Boolean;
控件从这里加入，就可以实现移动和拉动了。
下面就将类实现比较重要的几点略说一下吧（主要还是看代码吧）
在类的构造函数中，将上面的三个控件处理函数指定给三个指针成员：
FConMouseDown:=ConMouseDown;
FConMouseMove:=ConMouseMove;
FConMouseup:=ConMouseUp;
现在这三个成员就指定了三个处理函数的地址了，等一下就可以看到那些控件的鼠标消息是怎么和这三个处理函数联系在一起的，实现就在AddControl函数中。
AddControl是一个非常重要的方法，在控件加入之前，它要先判断控件是否有Parent值，没有则不能加入，更重要的一点是，在FConList是否已经有这个控件了，即该控件已经加入过了，如果已经加入了，则不能再加一次，代码如下：
//如果该控件已经在列表中了，则加入失败
for i:=0 to FConList.Count-1 do
if Integer(AddCon)=Integer(FConList.Items[i]) then
begin
result:=false;
exit;
end;
如果可以加入则先加入列表类中，再指定当前活动控件：
FConList.Add(AddCon);
FCurActiveCon:=FConList.Count-1;
而AddControl中还有一个比较重要的TempCon.Parent.DoubleBuffered:=True;
即加入的控件的父窗口设为双缓冲模式，这样在移动控件或拉动控件大小的时候，不会出现闪烁现象。
接着就是为加入的控件指定鼠标处理函数了，但加入的是TControl，而他的鼠标事件指针被设为保护类型，因此无法获得，但他的子类把他们显化出来了。这里用了一种折衷的方案：
上一页 [1] [2] [3] 下一页
没有相关教程
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
