pagecontrol获取选中选项卡的值

  if PrintTab_pc.ActivePage.Caption = '已付款未打印 (打印订单)' then
  begin
    MyTopTradeApi := TTopTradeApi.Create;
    try
      {把原来勾选的取消}
      MyTopTradeApi.UnXuanzhongAllTid;
      {初始化快递识别的结果}
      WeiFilterTopCompanyName_rg.Items.CommaText := MyTopTradeApi.GetCompanyNameGroupCountListStr;
      {初始化筛选订单}
      MyTopTradeApi.YiFukuanWeiPrintFilter;
    finally
      MyTopTradeApi.Free;
    end;
  end;

PrintTab_pc.ActivePage.Caption