كود وضع كمبوننت وسط كمبوننت آخر

procedure CenterControl(ParentObject, CenterObject: TControl; bTop, bLeft: Boolean; 
  Space: Integer); 
begin 
  with CenterObject do 
  begin 
    if bLeft then 
      Left := ParentObject.Width div 2 - Width div 2 + Space; 

    if bTop then 
      Top := ParentObject.Height div 2 - Height div 2; 
  end; 
end; 

procedure TForm1.Button2Click(Sender: TObject); 
begin 
  CenterControl(Panel1, Button1, True, True, 0); 
end;

هذا الكود يحتاج منك وضع

عدد 1 Tpanel

عدد 2 Buttons

سيقوم البرنامج بوضع الـ Button الأول وسط الـ Panel

(f)