PointCount: Integer;
Свойство PointCount определяет количество точек на выноске.
Пример выноски с четырьмя точками:
Для выполнения примера предполагается наличие формы, расположенной на ней кнопки с наименованием Button1, компонента WorkspaceBox и компонента UiWorkspace с наименованием UiWorkspace1, являющимся источником данных для WorkspaceBox.
Добавьте ссылки на системные сборки: Andy, Workspace.
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
WS: IWxWorkspace;
Rect: IWxLinkedBaloon;
Begin
WS := UiWorkspace1.WxWorkspace;
WS.BeginUpdate;
Rect := WS.CreateLinkedBaloon;
Rect.PointCount := 4;
WS.EndUpdate;
End Sub Button1OnClick;
После выполнения примера на рабочем пространстве будет создана выноска с четырьмя точками.
См. также: