将窗体的 BorderStyle 设置为 bsNone，窗体的标题栏就不会显示，此时，如果想移动窗体，方法如下：

如果没有使用Image控件覆盖窗体做美化，使用以下函数

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  PostMessage(Self.Handle,WM_SYSCOMMAND,SC_MOVE+1,0);
end;

 

如果使用了Image控件覆盖窗体做美化，使用以下函数

procedure TForm1.img1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  SendMessage(self.Handle, WM_SYSCOMMAND,SC_MOVE+HTCAPTION, 0);
end;