应用程序中groupbox控件的居中显示方法

     应用程序中，常有若干个groupbox控件里面放入若干用户所需要的输入框、选择按钮，并在右下角放上“确认”或“返回”按钮Button, 组成用户和应用程序交互界面.下面是在应用程序中将groupbox控件居中显示方法。

procedure TForm1.adjust_groupbox(var groupbox:TGroupBox;Button:TButton);

//这里的Button是groupbox中最右下角的那个按钮
begin
  GroupBox.Height:=Button.top+50;
  GroupBox.Width :=Button.left+88;
  GroupBox.Top   :=(Screen.Height-GroupBox.Height) div 3;
  GroupBox.Left  :=(Screen.Width-GroupBox.Width) div 2+5;
  GroupBox.color:=$00F8E4DF;
  GroupBox.ctl3D:=false;
  GroupBox.visible:=true;
end;