컨트롤을 리사이즈 중심으로 유지하는 가장 좋은 방법

Question

부모가 너비 또는 높이를 변경하는 경우 컨트롤을 부모 중심으로 유지하는 기본 방법은 무엇입니까?

Answer 1

'가운데 맞춤'은 이미 중간에 있고 크기를 조정하지 않고 그대로 유지하려는 경우 모든 앵커를 제거합니다. 크기를 조정해야 할 경우 gabr의 솔루션은 다음과 같습니다.

Answer 2

컨트롤의 앵커 속성을 [akLeft, aKTop, akRight, akBottom]으로 설정하십시오.

Answer 3

일종의 "업데이트 중입니다. 기다려주십시오 ..."라는 것을 의미하는 경우 Form의 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;