在 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;