TMyCAD > Events > OnShapeCodeDragging

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;