Delphi版 ArcEngine Mapcontrol与PageControl同步

function MapToPage(mapControl: IMapControlDefault; pageLayout: IPageLayoutControlDefault): Boolean;
var
   objectCopy: IObjectCopy;
   toCopyMap: IMap;
   copideMap, toOverwriteMap: IUnknown; //在VB中数据类型 是 Object
begin
   //创建复制对象
   objectCopy := CoObjectCopy.Create as IObjectCopy;

   //得到想要复制的数据 相当于 在 MapControl控件上做 Ctrl + C
   toCopyMap := mapControl.ActiveView.FocusMap;

   //将要复制的数据，复制出来
   copideMap := objectCopy.Copy(toCopyMap);

   //将要被替换掉的数据,是PageControl控件的同步前的数据
   toOverwriteMap := pageLayout.ActiveView.FocusMap;

   //同步数据，相当于在 PageControl控件上 做 Ctrl + V

   objectCopy.Overwrite(copideMap, toOverwriteMap);

   //刷新PageControl
   pageLayout.ActiveView.Refresh;
   Result := True;
end;TEST