保存组件的所有设置到ResFile（.dat）文件

procedure TfrmMain.N20Click(Sender: TObject);
begin
  //判断是那个选项卡
  if PrintTab_pc.ActivePageIndex = 0 then
  begin
    //打印订单
    WriteComponentResFile(ExtractFilePath(ParamStr(0))+'ComponentResFile\WeiTopTradeShow.dat', WeiTopTradeShow_dbgeh);
  end else if PrintTab_pc.ActivePageIndex = 1 then begin
    if FahuoMuShi_pc.ActivePageIndex = 0 then
    begin
      //批量发货
      WriteComponentResFile(ExtractFilePath(ParamStr(0))+'ComponentResFile\YiBatchTopTradeShow.dat', YiBatchTopTradeShow_dbgeh);
    end else if FahuoMuShi_pc.ActivePageIndex = 1 then begin
      //扫描发货
      WriteComponentResFile(ExtractFilePath(ParamStr(0))+'ComponentResFile\YiScanTopTradeShow.dat', YiScanTopTradeShow_dbgeh);
    end;
  end else if PrintTab_pc.ActivePageIndex = 2 then begin
    //等待审核的订单
    WriteComponentResFile(ExtractFilePath(ParamStr(0))+'ComponentResFile\DoExceptionTopTradeShow.dat', DoExceptionTopTradeShow_dbgeh);
  end else if PrintTab_pc.ActivePageIndex = 3 then begin
    //全部状态订单
    WriteComponentResFile(ExtractFilePath(ParamStr(0))+'ComponentResFile\AllTopTradeShow.dat', AllTopTradeShow_dbgeh);
  end else begin
    ShowMessage('保存失败,请联系在线旺旺客服');
  end;
  //提示
  ShowMessage('表格宽度与位置-保存成功');
end;