我用panel来显示mapinfo中的地图,我现要把它显示的地图放到打印报表中打印出来。报表控件是Qrimage,我该怎么办呢?MIOleObject:=createoleobject('mapinfo.application');
str(frmMain.Handle,sWinHand); //此处用了窗体的handle的属性
msgtomi := 'Set Application Window ' + sWinHand;
MIOleObject.do(msgtomi); msgtomi := 'Set Window info parent ' + sWinHand;
MIOleObject.do(msgtomi); msgtomi := 'Set Window ruler parent ' + sWinHand;
MIOleObject.do(msgtomi); msgtomi := 'Set Window message parent ' + sWinHand;
MIOleObject.do(msgtomi);
Str(PanelMap.Handle, sWinHand); //此处用panel的handle属性,
msgtomi := 'Set Next Document Parent ' + sWinHand + ' Style 1';
MIOleObject.do(msgtomi); msgtomi:='run application c:\';
MIOleObject.do(msgtomi);
MBAppMapOleobject:=MIOleObject.MBApplications.item('Map.Mbx'); Str(frmMain.Handle,sWinHand);
MBAppMapOleobject.MBGlobals.item('g_dhwnd').value :=sWinHand;
str(frmMain.Handle,sWinHand); //此处用了窗体的handle的属性
msgtomi := 'Set Application Window ' + sWinHand;
MIOleObject.do(msgtomi); msgtomi := 'Set Window info parent ' + sWinHand;
MIOleObject.do(msgtomi); msgtomi := 'Set Window ruler parent ' + sWinHand;
MIOleObject.do(msgtomi); msgtomi := 'Set Window message parent ' + sWinHand;
MIOleObject.do(msgtomi);
Str(PanelMap.Handle, sWinHand); //此处用panel的handle属性,
msgtomi := 'Set Next Document Parent ' + sWinHand + ' Style 1';
MIOleObject.do(msgtomi); msgtomi:='run application c:\';
MIOleObject.do(msgtomi);
MBAppMapOleobject:=MIOleObject.MBApplications.item('Map.Mbx'); Str(frmMain.Handle,sWinHand);
MBAppMapOleobject.MBGlobals.item('g_dhwnd').value :=sWinHand;
VB的还好,看来还是要学习学习MAPBASIC