学步园

//声明:
GetCurrentPositionEx(
  DC: HDC;      {设备场景句柄}
  Point: PPoint {点指针}
): BOOL;


//举例:
var
  pt: TPoint;
begin
  GetCurrentPositionEx(Canvas.Handle, @pt);
  ShowMessage(Format('%d,%d',[pt.X,pt.Y])); {0,0}

  MoveToEx(Canvas.Handle, 100,100, nil);
  GetCurrentPositionEx(Canvas.Handle, @pt);
  ShowMessage(Format('%d,%d',[pt.X,pt.Y])); {100,100}
end;