ActiveShape: IWxShape;
The ActiveShape property determines an active shape.
Executing the example requires an existing ws object of the IWxWorkspace type.
Sub UserProc;
Var
ws: IWxWorkspace;
view : IWxView;
Shape : IWxShape;
Begin
view := ws.Views.Item(0);
Shape := view.ActiveShape;
Shape.Delete;
End Sub UserProc;
After executing the example the selected object is deleted from a workspace.
See also: