CreateStraightLink: IWxStraightLink;
Метод CreateStraightLink создает соединительную линию. Соединительная линия всегда располагается строго вертикально или горизонтально.
Примечание. Если соединительная линия устанавливает связь между двумя объектами, то для каждого объекта будет создана новая точка соединения, которая будет использоваться данной соединительной линией.
В рассматриваемом примере предполагается существование объекта ws типа IWxWorkspace.
Sub UserProc;
Var
ws: IWxWorkspace;
StrLink : IWxStraightLink;
Shapes : IWxShapes;
Begin
StrLink := ws.CreateStraightLink;
Shapes := ws.Shapes;
ws.GlueConnectionPoints(Shapes.Item(0),2,StrLink,0);
ws.GlueConnectionPoints(Shapes.Item(1),3,StrLink,1);
End Sub UserProc;
После выполнения примера заданные объекты будут соединены соединительной линией.
См. также: