Procedure TWPCustomRtfEdit.DoEndDrag(Target:TObject; X:Integer; Y:Integer)Unit: WPCTRMemoClass: WPCTRMemo.TWPCustomRtfEditParameters Target:TObject X:Integer Y:Integer