Главная страница
    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.007 c
14-75330
Фагот
2003-12-01 11:01
2003.12.23
Инсталляция FB


1-75216
DeMoN-777
2003-12-11 02:06
2003.12.23
Определение раскладки


3-75102
nts
2003-11-29 12:56
2003.12.23
jdbc ado


14-75320
Lony
2003-11-30 17:54
2003.12.23
Помогите воскресить жёсткий диск!


14-75396
Думкин
2003-11-28 05:29
2003.12.23
С днем рождения! 28 ноября.





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