TShapeCodeDraggingSizing = procedure (AShape:TMyShape; dx,dy:Single) of     object;


property OnShapeCodeDragging


Description:


When a Shape is Dragging by code , this event be trigger.


Example:


procedure TForm1.MyCAD1ShapeCodeRotating(AShape: TMyShape;dx,dy: single);

begin

 Memo1.Lines.Add('---------code Drag Event---------------');

 Memo1.Lines.Add('ShapeId is: '+Inttostr(AShape.ShapeId)+' '+AShape.Name +' rotating ');

end;



See Also:


Move