TEnterLeaveShape = procedure (AShape:TMyShape) of object;


property OnMouseLeaveShape:TEnterLeaveShape


Description:


When the mouse leave a shape or a grouped shape, this event trigger.


Example:


procedure TForm1.MyCAD1MouseLeaveShape(ShapeID, LayId: Integer;

 AShape: TMyShape);

begin

  Memo1.Lines.Add('--------- Leave Shape Event---------------');

  Memo1.Lines.Add('Leave shape, id is : ' + inttostr(AShape.ShapeID));

end;



See also:


OnMouseEnterShape