delphi - 设置 Panel1.Constraints.MinHeight 时，TSplitter 移动时出现不需要的表单大小增长

Question

我有这种情况(见图)，现在当我搬家时Splitter1在运行时启动，Panel2高度也随之增长Form1高度增长。

但我需要知道并阻止此类事件，当 Splitter1无法向上移动，因为 Panel1.Constraints.MinHeight达到了，所以Panel2无法更改其高度和 Form1也是。

感谢您的帮助。

-- 编辑 --
Panel1.Align := alLeft;
Splitter1.Align := alBottom;
Panel2.Align := alBottom;

Answer 1

您可以在拆分器的 CanResize 事件中检查并拒绝进一步调整大小。

procedure TForm1.Splitter1CanResize(Sender: TObject; var NewSize: Integer;
  var Accept: Boolean);
begin
  Accept := ClientHeight - (NewSize + Splitter1.Height) >= Panel1.Constraints.MinHeight;
end;