一个菜鸟的一个关于Mapobjects2的简单问题(100分)

  • 主题发起人 主题发起人 xindijing
  • 开始时间 开始时间
X

xindijing

Unregistered / Unconfirmed
GUEST, unregistred user!
小弟学习用Delphi6+Mapobjects2开发一个程序,遇到不少问题:
问题1:
var
currectangle:Rectangle;
begin

currectangle:=Rectangle(CreateOleObject('Mapobjects2.Rectangle'));
currectangle := mapdisp.TrackRectangle;
end;

为什么这里最后一行会返回空(nil)?

问题2:
var
curPoint:Point;
curX,curY:Double;
cccX,cccY:Double;

begin

curPoint:= Point(CreateOleObject('Mapobjects2.Point'));
curPoint := MapDisp.ToMapPoint(x, Y);
curX := curPoint.x;
curY := curPoint.Y;
...
end;

这里的curPoint 返回为非nil,但为什么curPoint.x=0 呢?
期待各位大侠指教!
 
第一个问题,这段程序一般是放在onmousedown事件里,
可能是你的鼠标没有拉出一个rectangle..
因trackrectangle方法需要用鼠标拉一个rectangle才可以...
第二问题可能就是0嘛
 
什么论坛,难道回答的人都没有几个?
 
上面回答得很清楚,就是这个原因!
 
我也遇到过同样的问题,上面说的可能不对。我认为是Delphi6的问题,它不支持Mapobjects2。D5,D7都没问题,改用delphi7吧
 
学习!!
 
GIS的帖子老不结,没一点变化。既无人看也无人答。版主哪里去了?关了GIS版算了。
 
建议:用Delphi5或7
好像是IMoPoint(……)等等
 
后退
顶部