1.任务：在窗体中随意移动某个控件，本例子选用的是个Shape控件，且不能移出窗体；
2.打开IDE，新建VCL应用，添加一个Shape1控件，添加一个RichEdit1控件；
- 需要手动设置的属性：Shape1.Shape 为'stCircle'；
4.需要手动添加的事件：
（1）窗体的创建事件：onCreate；
（2）Shape1的鼠标操作事件：MouseDown、MouseMove、MouseUp;
5.编写代码：
var
c: boolean; // 是否移动的开关
tx, ty: Integer; // 鼠标在控件上按下时的坐标
procedure TForm1.FormCreate(Sender: TObject);
begin
c := false; // 窗体启动时，设置控件不可移动
end;
// 下面是控件的鼠标按下事件
procedure TForm1.Shape1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then //判断按下的是不是鼠标左键
begin
c := true; // 按下鼠标左键后，可以移动
RichEdit1.SelAttributes.Color := clBlue; // 改变最下一行的字体颜色
RichEdit1.Lines.Add('开始坐标:Left:' + Shape1.Left.ToString + '--Top:' +
Shape1.Top.ToString);
tx := X; // 记录下鼠标点击的开始坐标X
ty := Y; // 记录下鼠标点击的开始坐标 Y
end;
end;
// 下面是控件的鼠标移动事件
procedure TForm1.Shape1MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
if c then
begin
Shape1.Left := Shape1.Left + X - tx; // 改变控件的Left坐标 ,X-tx是相对开始时移动的距离
Shape1.Top := Shape1.Top + Y - ty; // 改变控件的Top坐标 ,Y-ty是相对开始时移动的距离
// Form1.ClientWidth是窗体的用户区的大小，即除去边框的大小，控件在这个范围内是可见的。
if Shape1.Left >= Form1.ClientWidth - Shape1.Width then // 如果移动到右边界了
Shape1.Left := Form1.ClientWidth - Shape1.Width // 让控件紧靠右边界
else if Shape1.Left <= 0 then // 如果移动到左边界
Shape1.Left := 0; // 让控件紧靠左边界
if Shape1.Top >= Form1.ClientHeight - Shape1.Height then // 如果移动到下边界了
Shape1.Top := Form1.ClientHeight - Shape1.Height // 让控件紧靠下边界
else if Shape1.Top <= 0 then // 如果移动到上边界了
Shape1.Top := 0; // 让控件紧靠上边界
RichEdit1.Lines.Add('移动坐标:Left:' + Shape1.Left.ToString + '--Top:' +
Shape1.Top.ToString);
end;
end;
// 下面是控件的鼠标释放事件
procedure TForm1.Shape1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
c := false; // 放开鼠标后，不可以移动
RichEdit1.SelAttributes.Color := clRed; // 改变最下一行的字体颜色
RichEdit1.Lines.Add('终点坐标:Left:' + Shape1.Left.ToString + '--Top:' +
Shape1.Top.ToString);
end;
示例图片：
14.1.jpg
14.2.jpg
14.3.jpg
14.4.jpg
14.5.jpg
14.6.jpg
14.7.jpg
