IPopupMenuEventArgs.Point

Синтаксис

Point: IPoint;

Описание

Свойство Point возвращает точку в области компонента Control, в которой было вызвано контекстное меню.

Пример

Для выполнения примера предполагается наличие формы, расположенного на ней компонента Breadcrumb и компонента PopupMenu. В Breadcrumb созданы несколько элементов. Компонент PopupMenu установлен в качестве контекстного меню для компонента Breadcrumb.

Sub PopupMenu1OnPopup(Sender: Object; Args: IPopupMenuEventArgs);
Var
    Br: IBreadcrumb;
    Elem: Integer;
Begin
    If Args.Control Is Breadcrumb Then
        Br := Args.Control As IBreadcrumb;
        Elem := Br.HitTest(Args.Point);
        If Elem <> -1 Then
            Debug.WriteLine(Br.Items.Item(Elem).Text);
        End If;
    End If;
End Sub PopupMenu1OnPopup;

После выполнения примера, если в области какого-либо элемента компонента Breadcrumb было вызвано контекстное меню, то в консоль среды разработки будет выведено наименование данного элемента.

См. также:

IPopupMenuEventArgs