Unwanted form size growing when moving TSplitter when installing Panel1.Constraints.MinHeight

Question

I have this type of situation (see image), now when I move Splitter1 up at runtime, the height of Panel2 increases and the height of Form1 increases.

But I need to know and block this type of event when Splitter1 cannot be moved due to Panel1.Constraints.MinHeight , therefore Panel2 cannot be changed its height and Form1 too.

Thanks for any help.

- Change -
Panel1.Align : = alLeft;
Splitter1.Align : = alBottom,
Panel2.Align : = alBottom;

Answer 1

You can check and reject further calibration in the CanResize splitter CanResize .

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

Answer 2

Set the Splitter Splitter property to false and its MinSize property for MinHeight Panel1.