在 Delphi 中以无边框形式/窗口平滑调整大小

我正在尝试调整无边框表单的大小，但是当我使用右侧/底部增加大小时，边框和旧客户区域之间存在间隙，该间隙取决于移动鼠标的速度。

当您从左边框甚至从左下角调整大小时，效果会更加明显，到处都很可怕（我尝试使用其他商业应用程序，它也会发生）。当我更改为相当大的边框时也会发生这种效果，但它并不像删除表单边框时那么糟糕

表单布局由一个执行标题栏功能的顶部面板（带有一些图像和按钮）和一些显示其他信息的其他面板（如备忘录、其他控件等）组成。

我的代码有一个片段，我捕获鼠标按钮并向窗口发送消息，但我也尝试手动执行此操作，得到类似的结果

激活顶部面板的双缓冲区可以避免闪烁，但调整面板大小与调整表单大小不同步，从而出现间隙或部分面板消失

 procedure TOutputForm.ApplicationEvents1Message( var Msg: tagMSG;
  var Handled: Boolean );
const
  BorderBuffer = 5;
var
  X, Y: Integer;
  ClientPoint: TPoint;
  direction: integer;
begin
  Handled := false;
  case Msg.message of
    WM_LBUTTONDOWN:
      begin
        if fResizable then
        begin
          if fSides = [sTop] then
            direction := 3
          else if fSides = [sLeft] then
            direction := 1
          else if fSides = [sBottom] then
            direction := 6
          else if fSides = [sRight] then
            direction := 2
          else if fSides = [sRight, sTop] then
            direction := 5
          else if fSides = [sLeft, sTop] then
            direction := 4
          else if fSides = [sLeft, sBottom] then
            direction := 7
          else if fSides = [sRight, sBottom] then
            direction := 8;
          ReleaseCapture;
          SendMessage( Handle, WM_SYSCOMMAND, ( 61440 + direction ), 0 );
          Handled := true;
        end;
      end;
    WM_MOUSEMOVE:
      begin
        // Checks the borders and sets fResizable to true if it's in a "border" 
        // ...
      end; // mousemove
  end; // case
end;

我怎样才能避免该区域和/或强制重新绘制窗口？我正在使用 Delphi，但通用解决方案（或其他语言）甚至前进的方向对我来说都很好

先感谢您

上次我尝试手动创建一个通过 WM_SYSCOMMAND 和鼠标拖动调整大小的顶级窗口，无论是否涉及任何嵌套面板，我发现问题不仅限于闪烁。

即使使用没有可调整大小边框的裸 TForm，添加我自己的可调整大小边框并直接处理鼠标按下、鼠标移动和鼠标向上消息也被证明太有问题。我放弃了您在此处展示的代码方法，而是找到了两种可行的方法：

1. 使用一种由我接管非客户区域绘画的方法。这就是 Google Chrome 和许多其他完全自定义窗口所做的事情。您仍然有一个非客户区域，由您来绘制它并处理非客户区域和边框绘制。换句话说，它并不是真正的无边界，但如果你愿意的话，它可以都是单一颜色。读这个有关 WM_NCPAINT 消息的帮助， 开始。

2. 使用仍能被识别的无边框可调整大小窗口（即使其非客户区域没有作为可调整大小窗口）。想想便利贴小程序。Here这是我不久前问过的一个问题，在我的问题的底部是一个完全工作的演示，它提供了一种平滑的无闪烁方式来拥有无边框可调整大小的窗口。答案的基本技术由 David H.