界面收缩和扩展

procedure TfrmR80.btnSettingClick(Sender: TObject);
begin
  if btnSetting.Caption = '收缩 <<' then
  begin
    frmR80.Height := btnSetting.Top + 27 + btnSetting.Height * 3 div 2;
    btnSetting.Caption := '扩展 >>';
  end
  else
  begin
    frmR80.Height := GroupBox2.Top + 27 + GroupBox2.Height + btnSetting.Height div 2;
    btnSetting.Caption := '收缩 <<';
  end;
end;