假设您有一个可以向左展开以显示其他控件的表单：
折叠：
扩展：
在 Delphi 中实现这一点的最简单方法是使用alRight作为所有控件的主要锚点（而不是alLeft），然后只需调整表单的宽度和 X 坐标即可。您可以设置Width and Left单独属性，或者您可以使用同时设置它们的函数，例如
if FCollapsed then
SetWindowPos(Handle, 0, Left - Width, Top, 2 * Width, Height, 0)
else
SetWindowPos(Handle, 0, Left + Width div 2, Top, Width div 2, Height, 0)
问题问题是，在展开或折叠时，表单始终可见的部分（在本例中为按钮）存在相当明显的闪烁。自己尝试一下吧！
操作系统可以将窗体的大小向左调整而不会出现任何闪烁——只需使用鼠标抓住窗体的左边缘并向左或向右拖动鼠标即可——但我找不到任何闪烁Windows API 中的函数公开了这种大小调整。
我尝试过使用几种不同的 Windows API 函数来调整表单的大小和位置，尝试了它们的各种参数（例如，SWP_*标志），尝试过LockWindowUpdate, WM_SETREDRAW, TForm.DoubleBuffered等等都无济于事。我还研究了使用的可能性WM_SYSCOMMAND SC_SIZE方法。
我还不确定问题是出在操作系统层面还是VCL层面。
有什么建议么？
Edit:我很惊讶地看到这个问题获得了接近的票数。让我尝试澄清一下：
创建一个新的 VCL 表单应用程序。
在主窗体的右侧添加一些按钮，并在左侧添加一个备忘录。放Anchors to [alTop, alRight] on all控制。上OnClick按钮的处理程序，添加以下代码：
if FCollapsed then
SetWindowPos(Handle, 0, Left - Width, Top, 2 * Width, Height, 0)
else
SetWindowPos(Handle, 0, Left + Width div 2, Top, Width div 2, Height, 0);
FCollapsed := not FCollapsed;
where FCollapsed是表单的私有布尔字段（初始化为false).
Now, click the buttons repeatedly. (Or give one of them keyboard focus and hold the Enter key for a few seconds.) You will probably notice that the region with the buttons on your monitor will not display a perfect still image, but will flicker. In addition, you might actually see 'ghosts' of the buttons to the left of the actual column of buttons.
我无法使用屏幕捕获来捕获这种毫秒闪烁，因此我使用数码相机来记录我的屏幕：
https://privat.rejbrand.se/VCLFormExpandFlicker.mp4
在此视频剪辑中，很明显，按钮列不是屏幕上的静态图像；而是一列按钮。相反，每次调整表单大小时都会有几毫秒的时间，该区域会出现不正常的情况。同样明显的是，左侧有一列“幽灵”按钮。
我的问题是是否有任何相当简单的方法来消除这些视觉伪影（至少对我来说，即使您一次展开/折叠表单，这些视觉伪影也是非常明显的）。
在我工作的 Windows 10/Delphi 10.1 计算机上，当我使用鼠标拖动窗体的最左边缘时，窗体会以完美的方式调整大小：窗体的未受影响的客户区域在显示器上完全静态。然而，在我家里的 Windows 7/Delphi 2009 PC 上，我确实看到当我执行此操作时会发生很多重新定位。
我可以提供一些关于为什么您会看到 UI 另一半的重影的见解，以及可能的阻止它的方法。重影图像表明有人正在复制您的客户区像素（并将它们复制到错误的位置，始终在窗口中左对齐），然后您才有机会使用正确的像素重新绘制它们。
这些鬼象像素可能有两个不同的、重叠的来源。
第一层适用于所有 Windows 操作系统，来自BitBlt inside SetWindowPos。你可以摆脱它BitBlt在几个方面。您可以创建自己的自定义实现WM_NCCALCSIZE告诉 Windows 不传输任何内容（或者在自身之上传输一个像素），或者您可以拦截WM_WINDOWPOSCHANGING（首先将其传递给DefWindowProc）并设置WINDOWPOS.flags |= SWP_NOCOPYBITS，这会禁用BitBlt在内部调用中SetWindowPos()Windows 在调整窗口大小期间执行的操作。这与跳过的最终效果相同BitBlt.
然而，Windows 8/10 aero 添加了另一个更麻烦的层。应用程序现在绘制到离屏缓冲区中，然后由新的、邪恶的 DWM.exe 窗口管理器合成。事实证明 DWM.exe 有时会自己做BitBlt类型操作是在旧版 XP/Vista/7 代码已经完成的操作之上进行的。阻止 DWM 进行 blit 则要困难得多；到目前为止我还没有看到任何完整的解决方案。
将突破XP/Vista/7层并至少提升8/10层性能的示例代码请参见：
如何在调整窗口大小时平滑丑陋的抖动/闪烁/跳跃，特别是拖动左/上边框（Win 7-10；bg、bitblt 和 DWM）？
由于你有多个子窗口，情况就更复杂了。这BitBlt我上面提到的类型操作发生在整个顶级窗口上（它们将窗口视为一组像素，无论下面有多少个窗口，也不管CLIPCHILDREN）。但是您需要让窗口自动移动，以便在下一次重绘时它们都正确定位。你可能会发现BeginDeferWindowPos/DeferWindowPos/EndDeferWindowPos对此很有用（但只有在上述技巧不起作用时才去那里）。