TMyCAD > Events > OnMouseLeaveShape

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;