1 看别人的资料 好像可以 取出 单位信息,但我梅雨取出单位信息
2 在mousemove 事件中有mapx mapy两个参数 直接可以使用
procedure TForm3.ArcGisMapControl1MouseMove(ASender: TObject; button, shift, X,
Y: Integer; mapX, mapY: Double);
var
mapunit:TOleEnum;
convert:IUnitConverter;
sunit:widestring;
wb:WordBool;
begin
//
ArcGisMapControl1.Map.Get_MapUnits(mapunit);
CoCreateInstance(class_UnitConverter,nil,CLSCTX_INPROC_SERVER,iid_Iunitconverter,convert);
convert.EsriUnitsAsString(mapunit,esriCaseAppearanceUnchanged,wb,sunit);
labPos.Caption := 'X='+floattostr(mapx)+' Y='+floattostr(mapy)+' '+ sunit;
end;