delphi - 如何阻止表单超过窗口高度？

Question

我的表单超出了窗口的高度（当我使用拆分器更改面板的高度时，拆分器又更改了表单的大小）。

我该如何阻止其调整大小？

Answer 1

我假设您自己在更改表单大小，因为我找不到使拆分器自动执行此操作的方法。您可以使用Screen单位中的Forms对象获取屏幕的高度。您可以简单地对Screen.Height进行测试，或者，如果您想更好地支持多个监视器，就可以对Screen.MonitorFromWindow(Handle).Height进行测试。

未经测试的代码示例将帮助您入门：

var MaxFormHeight: Integer;
    NewFormHeight: Integer;
    M: TMonitor;
begin
  // Get the monitor that's hosting the form
  M := M := Screen.MonitorFromWindow(Handle);     
  MaxFormHeight := M.WorkAreaRect.Bottom - M.WorkAreaRect.Top - Top; // Take into account actual available monitor space and the Top of the window
  // Do your stuff to calculate NewFormHeight
  if NewFormHeight > MaxFormHeight then
    NewFormHeight := MaxFormHeight;
  Height := NewFormHeight;
end;