FindById(Id: String): IWxShape;
Id. Shape identifier.
The FindById method searches for a shape by the identifier.
Executing the example requires an existing ws object of the IWxWorkspace type.
Sub UserProc;
Var
ws: IWxWorkspace;
Shapes : IWxShapes;
Shape : IWxShape;
Group : IWxGroup;
Begin
ws.BeginUpdate;
Shapes := ws.Shapes;
Shape := Shapes.FindById("Shape 1");
Group := Shape.Parent As IWxGroup;
Group.AllowObjectSelection := False;
ws.EndUpdate;
End Sub Button3OnClick;
After executing the example object selection within a group is disabled. The object with the Shape 1 identifier is a group member.
See also: