Головна сторінка
Top.Mail.Ru Яндекс.Метрика
Форум: "Основна";
Поточний архів: 2002.12.23;
Завантажити: [xml.tar.bz2];

Вниз

PopupMenu для елементів управління створених в RunTime Знайти схожі гілки


DVM   (2002-12-13 17:47) [0]

У меня вот какой вопрос. Есть панель с кнопками (TSpeedButton), которые создаются в RunTime. Для каждой кнопки при ее создании я назначаю одно и тоже PopupMunu (Button.PopupMenu:=PopupMenu1).
Все бы нормально, но как мне различить, щелчок правой кнопкой мыши на какой из кнопок вызвал появление PopupMenu, чтобы потом выполнить характерные действия, связанные именно с этой кнопкой.
-----------------
Приклад:
Панель задач, на ней кнопки, щелкаем правой кн. мыши, появляется меню, там пункт Закрыть. Мне надо почти так же.
-----------------
Кнопки различаю по свойству Tag, в нем и хранится нужная мне информация - число.



AlexandrN   (2002-12-13 17:51) [1]

А пробывал Sender смотреть, ведь если его привести к базовому типу кнопки, то обращение к Tag и будет обращением к Tag той кнопки на которой кликнули.



DAT   (2002-12-13 17:54) [2]

У элемента PopupMunu есть свойство PopupComponent, где храниться ссылка на вызвавший всплывающее меню элемент.



DVM   (2002-12-13 18:29) [3]

Для AlexandrN: Пробовал, не работает. Это первое, что приходит в голову (Sender as TSpeedButton).Tag. Это не тот Sender.

Для DAT: Спасибо, попробую, вроде бы должно сработать.



сторінки: 1 вся гілка

Форум: "Основна";
Поточний архів: 2002.12.23;
Завантажити: [xml.tar.bz2];

Вгору





Пам'ять: 0.55 MB
Час: 0.136 c
1-74816
сатир
2002-12-09 13:25
2002.12.23
TListView: OnResizeColumn - запропонуйте аналог


4-75056
вигнутий
2002-11-10 06:56
2002.12.23
Ка дізнатися повний шлях до файлу?


7-75013
vic_774N
2002-10-21 03:04
2002.12.23
Робота драйвера під Windows XP ?!


3-74622
newe
2002-12-05 14:28
2002.12.23
Delphi + Access


1-74653
Tytus
2002-12-12 21:25
2002.12.23
Відстеження натиснутих кнопок.





африкаанс албанський арабська вірменин азербайджанець баскський білоруський болгарська каталонський Китайська (спрощене письмо) Китайський традиційний) хорватський чеська данську мову нідерландський Ukranian естонець Філіппінська фінську мову французький
галісійська грузинський німецький грецький гаїтянський креольський давньоєврейську хінді угорський ісландський індонезієць ірландський італійський японський корейський латиська литовець македонець малайський мальтійський норвежець
перс полірування португальська румунський російська сербський словацький словенський іспанська суахілі шведську мову тайський турецька український урду в'єтнамський валлійський ідиш бенгальський боснійський
кебуано есперанто гуджараті хауса хмонг ігбо яванський каннада кхмерская Лао латинь маорі маратхі монгольський непальська панджабі сомалійський тамільська телугу йоруба
зулуський
Англійська Французький Німецький Італійський Португальська Русский Іспанська