Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Popup menu

2.1K
17 мая 2003 года
NetMan
10 / / 20.01.2003
Как получить координаты точки, в которой вызывается всплывающее контекстное меню?
310
19 мая 2003 года
fellow
853 / / 17.03.2003
Цитата:
Originally posted by NetMan
Как получить координаты точки, в которой вызывается всплывающее контекстное меню?



Путём обработки сообщения OnMouseDown. Проверяете, нажата ли правая кнопка, затем берёте координаты.

Цитата:
Occurs when the user presses a mouse button with the mouse pointer over a control.

typedef void __fastcall (__closure *TMouseEvent)(System::TObject* Sender, TMouseButton Button, Classes::
TShiftState Shift, int X, int Y);

__property TMouseEvent OnMouseDown = {read=FOnMouseDown, write=FOnMouseDown};

Description

Use the OnMouseDown event handler to implement any special processing that should occur as a result of pressing a mouse button.

The OnMouseDown event handler can respond to left, right, or center mouse button presses and shift key plus mouse-button combinations. Shift keys are the Shift, Ctrl, and Alt keys. X and Y are the pixel coordinates of the mouse pointer in the client area of the Sender.

2.1K
19 мая 2003 года
NetMan
10 / / 20.01.2003
Цитата:
Originally posted by fellow


Путём обработки сообщения OnMouseDown. Проверяете, нажата ли правая кнопка, затем берёте координаты.



И передовать координаты в другую функцию через переменные, да? Или проверять нажатие уже в функции меню?

469
19 мая 2003 года
Sli
71 / / 20.01.2000
Цитата:
Originally posted by NetMan
Как получить координаты точки, в которой вызывается всплывающее контекстное меню?



__property TPoint* PopupPoint = {read=FPopupPoint};

Indicates the location where the pop-up menu appears.

Description

This protected property is used internally to locate the popup menu. Its value is set by the Popup method.

2 fellow:
Не усложняй сущность сверх необходимости.

2.1K
19 мая 2003 года
NetMan
10 / / 20.01.2003
Цитата:
Originally posted by Sli

__property TPoint* PopupPoint = {read=FPopupPoint};

Description
This protected property...



Может я чего не понимаю, но как добраться до этого свойства, если оно закрыто?
Из какой версии Билдера справка? В четрвертой такого нет.

469
19 мая 2003 года
Sli
71 / / 20.01.2000
Цитата:
Originally posted by NetMan


Может я чего не понимаю, но как добраться до этого свойства, если оно закрыто?
Из какой версии Билдера справка? В четрвертой такого нет.


это из 6'го. А штоб до него добраться его надо наследовать. Хотя если его использовать в обработчике OnPopup то оно вполне доступно.

310
20 мая 2003 года
fellow
853 / / 17.03.2003
Цитата:
Originally posted by Sli


2 fellow:
Не усложняй сущность сверх необходимости.



OnMouseDown существует с начала времён, поэтому коллеге NetMan'у достаточно просто будет реализовать свою задумку в любых обстоятельствах, независимо от имеющейся в распоряжении версии C++ Builder.

Да, ещё, я - один. Нас не 2. (Это шутка, хе-хе)

2.1K
20 мая 2003 года
NetMan
10 / / 20.01.2003
Цитата:
Originally posted by Sli

это из 6'го. А штоб до него добраться его надо наследовать. Хотя если его использовать в обработчике OnPopup то оно вполне доступно.


Во! Видать они за две версии код малясь причесали. У меня это свойство private и добраться до него нет возможности. Поэтому его у меня и в справке нет:(

469
21 мая 2003 года
Sli
71 / / 20.01.2000
Цитата:
Originally posted by NetMan

Во! Видать они за две версии код малясь причесали. У меня это свойство private и добраться до него нет возможности. Поэтому его у меня и в справке нет:(



Поправь VCL. У меня товарищ работает в конторе, пишут они на дельфях.... дык они уже не раз избавлялись от глюков правя исходники VCL, благо Borland их дает :-)

2.1K
21 мая 2003 года
NetMan
10 / / 20.01.2003
Цитата:
Originally posted by Sli


Поправь VCL. У меня товарищ работает в конторе, пишут они на дельфях.... дык они уже не раз избавлялись от глюков правя исходники VCL, благо Borland их дает :-)



Ну это уже не то....
В общем спасибо всем за помощь, дело сдвинулось с мертвой точки.

NetMan

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог