TStatusBar với đáy liên kết bảng

Question

Tôi có một hình thức với một TStatusBar, và phía dưới thẳng hàng TPanel, đáy thẳng hàng TSplitter và khách hàng liên kết TPanel, như thể hiện trong hình bên dưới:

(Các splitter là màu đỏ để làm cho nó rõ ràng hơn một chút)

Button1 chỉ đơn giản là làm tăng chiều cao của Panel1 20:

Panel1.Height := Panel1.Height + 20; 

Nhưng khi nhấp vào thứ tự của các điều khiển thay đổi, với Panel1 đang thổi thanh trạng thái và bộ chia hiện đang thay đổi kích thước thanh trạng thái.

này chỉ xảy ra khi chiều cao của Panel1 được tăng hơn chiều cao của StatusBar1 (19).

Tôi cho rằng điều này là do có hai điều khiển căn chỉnh dưới cùng, nhưng tôi thua lỗ về nguyên nhân chính xác của sự cố và cách khắc phục sự cố.

Tôi hiện đang sử dụng XE2, nhưng tôi có cùng sự cố với D2010.

Trong trường hợp này có cách nào để đặt chiều cao của Panel1 thành giá trị tùy ý, đồng thời đảm bảo rằng các điều khiển duy trì vị trí mong đợi của chúng?

Answer 1

Khắc phục sự cố bằng cách đặt thuộc tính Top cho các điều khiển sau khi thay đổi chiều cao của bảng.

StatusBar1.Top := Panel1.Top + Panel1.Height; 

Answer 2

Cố gắng này (làm việc tốt cho tôi):

procedure TForm1.Button1Click(Sender: TObject); 
begin 
    Panel1.SetBounds(Panel1.Left, Panel1.Top - 20, 
        Panel1.Width, Panel1.Height + 20); 
end; 

Answer 3

Ngoài ra, nếu bạn không muốn theo dõi về nơi bạn đang thay đổi vị trí/kích thước của điều khiển,

type 
    TForm1 = class(TForm) 
    .. 
    private 
    protected 
    procedure AlignControls(AControl: TControl; var Rect: TRect); override; 

.. 

procedure TForm1.AlignControls(AControl: TControl; var Rect: TRect); 
begin 
    inherited; 
    if AControl = Panel1 then 
    StatusBar1.Top := Panel1.Top + Panel1.Height; 
end;