2008-11-24 27 views

Trả lời

7

Nếu theo 'trung tâm', bạn có nghĩa là "nó đã ở giữa và bạn muốn giữ nó ở đó mà không thay đổi kích thước", sau đó loại bỏ tất cả các neo. Nếu bạn muốn thay đổi kích thước, giải pháp của gabr là giải pháp có sẵn :)

5

Đặt thuộc tính Anchors của điều khiển thành [akLeft, akTop, akRight, akBottom].

+0

Đây thực sự là cách để thực hiện. –

+0

Điều này giả định childcontrol là allowd để thay đổi kích cỡ. – Vegar

+0

Có. Câu trả lời khác mô tả cách tiếp cận không thay đổi kích thước. – gabr

0

Nếu bạn có nghĩa là loại "đang cập nhật, vui lòng chờ ...", tôi tự di chuyển nó trong sự kiện OnResize của Biểu mẫu. Điều này cho phép tôi giữ một bảng điều khiển trong suốt quá trình thiết kế, và ẩn bình thường, nhưng tôi có thể làm cho nó hiển thị khi cần thiết.

procedure TMyForm.FormResize(Sender: TObject); 
var 
    nNewTop : Integer; 
begin 
    inherited; 
    pnlRegenerating.Left := (ClientWidth - pnlRegenerating.Width) div 2; 
    nNewTop := (ClientHeight div 5) {* 4}; 
    if (nNewTop + pnlRegenerating.Height) > ClientHeight then 
    nNewTop := ClientHeight - pnlRegenerating.Height - 4; 
    pnlRegenerating.Top := nNewTop; 
end; 
Các vấn đề liên quan