摘要：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 + b 阅读全文