Нежелательный размер формы, растущий при перемещении TSplitter, когда Panel1.Constraints.MinHeight установлен

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; 

Answer 2

Установите для свойства Splitter Splitter значение false и его свойство MinSize для MinHeight Panel1.