TMyCAD > Events > OnShapeMouseDragged

TShapeDraggingSizingRotated = procedure (AShape:TMyShape;FromPoint:TPoint;var ToPoint:TPoint ) of object;

property OnShapeMouseDragged:TShapeDraggingSizingRotating

Description:

When a Shape is dragging by mouse , this event be trigger.

Example:

procedure TMainFrm.MyCAD1ShapeMouseDragged(AShape: TMyShape; FromPoint:TPoint; var ToPoint: TPoint);

begin

Memo1.Lines.Add('---------Dragged Event---------------');

Memo1.Lines.Add('ShapeId is: '+Inttostr(AShape.ShapeId)+AShape.Name +' dragged ,'+

'From x:'+ inttostr(FromPoint.x)+' y:' +inttostr(FromPoint.y)+

'To x:'+ inttostr(ToPoint.x)+' y:' +inttostr(ToPoint.y));

end;