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


property OnShapeMouseDragging:TShapeDraggingSizingRotating


Description:


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


Example:


procedure TForm1.MyCAD1ShapeMouseDragging( AShape: TMyShape; FromPoint:TPoint; var ToPoint: TPoint);

begin

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

 Memo1.Lines.Add('ShapeId is: '+Inttostr(AShape.ShapeId)+AShape.Name +' are dragging!'

end;


end;


See Also:


Move