UFT does not record click and drag functions but it can be coded into the script using something like this.

x=Browser(''b'').Page(''p'').WebElement(''we'').GetROProperty(''abs_x'')
y=Browser(''b'').Page(''p'').WebElement(''we'').GetROProperty(''abs_y'')

Set dr = CreateObject(''Mercury.DeviceReplay'')

dr.DragAndDrop x,y,(x-100),(y+10),LEFT_MOUSE_BUTTON

Set dr=Nothing

Also, I have found that using wait has helped. For example;

Set dr = CreateObject(''Mercury.DeviceReplay'')
dr.MouseDown x,y,0
wait 1
dr.MouseMove x-225,y+10
wait 1
'dr.DragAndDrop x,y,(x-225),(y+10),0
dr.MouseUp x-225,y+10,0
Set dr=Nothing