Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.08.07;
Скачать: [xml.tar.bz2];

Вниз

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]

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



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.08.07;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.009 c
7-20834
OpoloXAI
2003-05-23 18:34
2003.08.07
Как переключить раскладку клавиатуры на Украинский язык?


4-20860
Clipper
2003-06-06 15:24
2003.08.07
Получение пути к процессу В WINDOWS ХР.


3-20448
qpwoeiruty
2003-07-17 14:46
2003.08.07
Как вызвать диалог Build Connection String в RunTime для ADO?


7-20830
Insider
2003-05-25 08:37
2003.08.07
Свой пункт в меню в таскбаре.


8-20641
Alexandr B.
2003-04-16 01:37
2003.08.07
Громкость





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский