Popup

← →
Pauk (2003-07-24 14:03) [0]

Popup присобачено к нескольким объектам. Как узнать, из какого он был вызван

← →
Caligula (2003-07-24 14:38) [1]

Есть такой параметр (практически в каждой функции или процедуре) Sender: TObject. С помощью него и можешь проверить. Вот, например, для TButton:
if (Sender is TButton) then ...

← →
y-soft (2003-07-24 14:43) [2]

В событии OnPopup надо проверять свойство PopupComponent

property PopupComponent: TComponent; Description Read PopupComponent to determine which control is currently using the popup menu. In applications where multiple controls share the same pop-up menu, use PopupComponent to determine which of them displayed the menu. Set PopupComponent to associate a control with the menu before calling the Popup method programmatically to bring up the pop-up menu.

>Caligula (24.07.03 14:38)
Есть такой параметр (практически в каждой функции или процедуре) Sender: TObject. С помощью него и можешь проверить. Вот, например, для TButton:
if (Sender is TButton) then ...

В обработчиках TPopupMenu это всегда и будет TPopupMenu...

← →
Плохиш (2003-07-24 14:46) [3]

To Pauk (24.07.03 14:03)
PopupMenu1.PopupComponent
Ещё рекомендую почаще пользоваться справкой

To Caligula (24.07.03 14:38)
Sender - это компонент который активизировал метод. В случае с PopupMenu: Sender = PopupMenu

← →
Pauk (2003-07-24 14:55) [4]

y-soft спасибочки

← →
Pauk (2003-07-24 15:25) [5]

Плохиш однозначно
только из-за такой мелочи не охота залазить в дебри

Popup Найти похожие ветки