La dimensione della forma indesiderata cresce sullo spostamento TSplitter quando Panel1.Constraints.MinHeight è impostato

Question

Ho questo tipo di situazione (vedi immagine), ora quando mi muovo Splitter1 in fase di esecuzione, cresce l'altezza Panel2 e cresce anche l'altezza Form1.

ma ho bisogno di conoscere e bloccare questo tipo di evento, quando Splitter1 non può essere spostato a causa di Panel1.Constraints.MinHeight viene raggiunto, in modo Panel2 non può essere modificato della sua altezza e Form1 troppo.

Grazie per qualsiasi aiuto.

- Modifica-
Panel1.Align: = alLeft;
Splitter1.Align: = alBottom;
Panel2.Align: = alBottom;

Answer 1

È possibile controllare e negare l'ulteriore dimensionamento dell'evento CanResize dello splitter.

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

Answer 2

Imposta la proprietà Splitter AutoSnap su false e la relativa proprietà MinSize su MinHeight of Panel1.