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

Вниз

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

 
webpauk   (2003-12-11 18:13) [0]

у меня куча TLabel, к которым привязан один и тот же PopupMenu. Знаю, что уже не раз вопрос задавали, но как определить какой TLabel вызвал Popup?


 
Skier   (2003-12-11 18:19) [1]

TPopupMenu.PopupComponent ?


 
webpauk   (2003-12-11 18:21) [2]

Спасибо


 
Александр из Минска   (2003-12-11 18:23) [3]

Делаешь (к примеру) 3 лабела. На первый вешаешь событие на МаусАп:
procedure TForm1.Label1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbRight then ShowMessage(TComponent(Sender).Name);
end;

Потом в остальных лабелах в Object Inspectory -> Events выбираешь на МаусАп событие Label1MouseUp.
Вроде все!


 
webpauk   (2003-12-11 18:37) [4]

все дело в том, что Tlabel я создаю в програмном режиме, и определять такую процедуру для каждого из них накладнее, чем первый метод



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

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

Наверх





Память: 0.44 MB
Время: 0.008 c
8-75274
Viktor Kushnir
2003-08-19 14:40
2003.12.23
Сохранить Metafile


7-75441
_point_
2003-10-20 18:14
2003.12.23
как считать инфу с com через прирывание


1-75155
с13
2003-12-07 09:08
2003.12.23
Scroll Bar


4-75458
mio
2003-10-28 18:12
2003.12.23
Разделение


6-75299
Amirka
2003-10-26 13:19
2003.12.23
печать страницы из TWebBrowser





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский