设置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;