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

Question

我有这种情况（见图），现在当我Splitter1在运行时向上移动时，Panel2高度会增加，而且Form1高度也会增加。

但是我需要知道并阻止这种类型的事件，Splitter1因为达到了无法向上移动Panel1.Constraints.MinHeight，所以Panel2也不能改变它的高度Form1。

谢谢你的帮助。

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

Answer 1

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

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

Answer 2

将 Splitter AutoSnap 属性设置为 false，并将其 MinSize 属性设置为 Panel1 的 MinHeight。