2008-11-24 5 views

ответ

7

Если «центрированный» означает «он был уже посередине, и вы хотите сохранить его там без изменения размера», затем удалите все якоря. Если он должен быть изменен, решение gabr будет одним из них:

5

Установить свойство якоря управления на [akLeft, akTop, akRight, akBottom].

+0

Это действительно способ сделать это. – 2008-11-24 09:50:29

0

Если вы имеете в виду тип типа «обновление, пожалуйста, подождите ...», я вручную перевешу его в событие OnResize формы. Это позволяет мне держать панель в стороне во время проектирования и скрываться нормально, но я могу сделать ее видимой, когда это необходимо.

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;