简单的gis程序在delphi5.0上没有问题,但在6.0上就有问题

Question

用mapx控件写一个简单的gis程序出现问题.
源程序如下.
 procedure TForm1.Map1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  r:IMOrectangle;
begin
       if Shift=[ssShift,ssLeft] then
          begin
             r:=Map1.Extent;
             r.ScaleRectangle(0.5);
             Map1.Extent:=r;
             edit1.Text:=floattostr(r.Width);
        edit2.Text:=floattostr(r.Height);
          end
       else
          begin
                map1.Extent:=map1.TrackRectangle;
          end;
end;
其中map1.TrackRectangle在delphi6.0中出现问,但5.0没有问题.那位大虾知道原因.

Answer 1

什么错误，错误代码是什么？
有问题请发信息到我的E-mail:[email protected]

Answer 2

编绎没有错误,但是运行时,在图层上拉一个矩形框时指到MAP控件的
procedure TMap.Set_Extent(const Value: Rectangle);
begin
  DefaultInterface.Extent := Value;
end;
在DefaultInterface.Extent := Value;高亮度显示。

Answer 3

procedure TMap.Set_Extent(const Value: Rectangle);
begin
  DefaultInterface.Extent := Value;
end;
是你自己写的过程吗，能不能把代码给我看看！