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;


See Also:


OnMouseLeaveShape