TMyCAD > Events > OnMouseEnterShape

TEnterLeaveShape = procedure (AShape:TMyShape) of object;

property OnMouseEnterShape:TNotifyEvent

Description:

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

Example:

procedure TForm1.MyCAD1MouseEnterShape(AShape: TMyShape);

begin

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

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

end;