在 delphi 中移动对象

百花草

在 delphi 中移动对象
Ftr := Lyr.Selection.Item(i);
  XE := X2 - Ftr.CenterX;
  YE := Y2 - Ftr.CenterY;
  //移动
  Ftr.Offset(XE, YE);
  Ftr.Update(EmptyParam, EmptyParam);
  Lyr.Refresh;

jxqkd123

探矿者软件可以提高矿体的命中率，减少找矿的成本和难度，主要功能：数据管理、二维制图、三维建模、储量估算、三维立体预测等，有需要免费试用可以联系负责人邓帅15377311476（微信同号），软件针对单位或者企业试用，不面向个人试用