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