如何在代码中垂直调整窗口大小？

Question

如果我双击窗口的顶部边框，它将从桌面的顶部到底部垂直调整大小，但保留其宽度。

我如何在代码中执行此操作？

Answer 1

可能就是这段代码：

with Screen.MonitorFromWindow(Handle).WorkareaRect do
  SetBounds(Self.Left, Top, Self.Width, Height);

以下替代方案添加动画：

Hide;
with Screen.MonitorFromWindow(Handle).WorkareaRect do
  SetBounds(Self.Left, Top, Self.Width, Height);
AnimateWindow(Handle, 200, AW_ACTIVATE or AW_VER_POSITIVE);

为了能够恢复到之前的大小，我认为可以使用SetWindowPlacement，但我无法使其工作。