控件移动类的实现之二

//重定位控件的尽寸

procedure TDragClass.reSizeCon;

var Con:TControl;

begin

  Con:=TControl(FConList.Items[FCurActiveCon]);

  Con.Left:=FPointRec.LeftTop.Left+FPointRec.LeftTop.Width;

  Con.Top:=FPointRec.LeftTop.Top+FPointRec.LeftTop.Height;

  Con.Width:=FPointRec.RightTop.Left-Con.Left;

  Con.Height:=FPointRec.LeftBottom.Top-Con.Top;

end;

//-----------------------------------------------

//设置控件移动时是否用跳跃式的移动

procedure TDragClass.SetisMoveStep(value: Boolean);

begin

  if FisMoveStep<>value then

    FisMoveStep:=Value;

end;

//设置控件移动跳跃的距离

procedure TDragClass.SetMoveStep(value: integer);

begin

  if Value<5 then

     FMoveStep:=5

  else if Value>20 then

     FMoveStep:=20

  else

     FMoveStep:=Value;

end;

end.

到第三部分，用一个例子来说明这个类的用法

 << 上一页  [11] 

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18