Question

我的形式超过了窗口的高度(当我使用改变小组的高度的分裂器时,改变了形形状的大小)。

我怎么能够阻止它像现在这样重新思考?

Answer 1

我假定你会重新改变形式规模,因为我无法找到办法使分裂者自动这样做。可以通过<代码>Screen的标注进入/code>的屏幕。你可以简单地测试<代码>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;

友情链接