Unerwünschte Formulargröße wächst auf TSplitter bewegen, wenn Panel1.Constraints.MinHeight gesetzt ist

Question

Ich habe diese Art von Situation (siehe Bild), jetzt, wenn ich Splitter1 in Laufzeit verschieben, Panel2 Höhe wächst und auch Form1 Höhe wächst.

Aber ich brauche diese Art von Ereignis kennen und blockieren, wenn Splitter1 kann nicht wegen Panel1.Constraints.MinHeight bewegt werden bis erreicht ist, so Panel2 nicht geändert werden kann davon Höhe ist und Form1 auch.

Danke für jede Hilfe.

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

Answer 1

Sie können die weitere Dimensionierung im Ereignis CanResize des Splitter überprüfen und ablehnen.

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

Answer 2

Setzen Sie die Splitter-AutoSnap-Eigenschaft auf false und ihre MinSize-Eigenschaft auf die MinHeight von Panel1.