Panel1.Constraints.MinHeight

Question

olarak ayarlandığında, TSplitter üzerinde istenmeyen boyutlar büyüyor Bu tür bir durum var (resme bakın), şimdi Splitter1 çalışma zamanında yukarı taşınırken, Panel2 yüksekliği büyür ve ayrıca Form1 yükseklik büyür.

Ama yükseklik ve Form1 çok var bu yüzden Panel2 değiştirilemez, Splitter1 yukarı çünkü Panel1.Constraints.MinHeight ait taşınamaz zaman ulaşılır bilir ve olayın bu tür engellemek gerekir.

Yardımlarınız için teşekkür ederiz.

- Düzenleme-
Panel1.Align: = alLeft;
Splitter1.Align: = alBottom;
Panel2.Align: = alBottom;

Answer 1

Splitter'in CanResize olayında daha fazla boyutlandırmayı kontrol edebilir ve reddedebilirsiniz.

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

Answer 2

Splitter AutoSnap özelliğini false ve MinSize özelliğini Panel MinHeight1'e ayarlayın.