ActiveShape: IWxShape;
Свойство ActiveShape определяет активную фигуру.
В рассматриваемом примере предполагается существование объекта ws типа IWxWorkspace.
Sub UserProc;
Var
ws: IWxWorkspace;
view : IWxView;
Shape : IWxShape;
Begin
view := ws.Views.Item(0);
Shape := view.ActiveShape;
Shape.Delete;
End Sub UserProc;
После выполнения примера с рабочего пространства будет удален выделенный объект.
См. также: