1.任务：无边框的窗体，因为没有边框，不能直接移动了，就需要自己写代码了来改变窗体的坐标，从而达到移动窗体的目的;
2.需要添加一个Button1,加入退出程序的代码；
3.需要在IDE设置的属性：form1的color为蓝色；
2.打开IDE，新建VCL应用， 添加一个Button1，编写代码：

var
  c: boolean; // 是否移动的开关
  tx, ty: Integer; // 鼠标在窗体上按下时的坐标

procedure TForm1.Button1Click(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  c := false;    // 窗体创建时，让其不可移动
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbLeft then // 判断按下的是不是鼠标左键
  begin
    c := true; // 按下鼠标左键后，可以移动
    tx := X; // 记录下鼠标点击的开始坐标X
    ty := Y; // 记录下鼠标点击的开始坐标 Y
    Form1.Color := clRed; // 窗体颜色变为红色
  end;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
  if c then
  begin

    Form1.Left := Form1.Left + X - tx; // 改变窗体的Left坐标 ,X-tx是相对开始时移动的距离
    Form1.Top := Form1.Top + Y - ty; // 改变窗体的Top坐标 ,Y-ty是相对开始时移动的距离

    // Screen.WorkAreaWidth是屏幕的可用区的大小，窗体在这个范围内是可见的。
    if Form1.Left >= Screen.WorkAreaWidth - Form1.Width then // 如果移动到右边界了
      Form1.Left := Screen.WorkAreaWidth - Form1.Width // 让窗体紧靠右边界
    else if Form1.Left <= 0 then // 如果移动到左边界
      Form1.Left := 0; // 让窗体紧靠左边界

    if Form1.Top >= Screen.WorkAreaHeight - Form1.Height then // 如果移动到下边界了
      Form1.Top := Screen.WorkAreaHeight - Form1.Height // 让窗体紧靠下边界
    else if Form1.Top <= 0 then // 如果移动到上边界了
      Form1.Top := 0; // 让窗体紧靠上边界

  end;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  c := false; // 放开鼠标后，不可以移动
  Form1.Color := clBlue; // 窗体颜色回复为蓝色
end;

示例图片如下：

15.1.jpg

15.2.jpg

15.3.jpg

15.4.jpg