Скачать: CL | DM;

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

← →
ArtemESC ©   (2006-08-10 13:32) [0]

Есть несколько динамических кнопок, всем соответсвует одно Popup-меню, как в обработчиках этого меню определить какая кнопка нажата?

---

← →
Ega23 ©   (2006-08-10 13:42) [1]

Создать ActionList с набором экшенов, кнопке прописывать экшн, пункту меню также.

---

← →
stone ©   (2006-08-10 13:42) [2]

OnPopup
PopupComponent

---

← →
umbra ©   (2006-08-10 13:45) [3]

if (Sender as TButton).Tag = ........

---

← →
ArtemESC ©   (2006-08-10 13:55) [4]

umbra ©   (10.08.06 13:45) [3]
Ну я так и делаю - все время ноль возвращаеться...

---

← →
SergP ©   (2006-08-10 15:00) [5]

> [4] ArtemESC ©   (10.08.06 13:55)
> umbra ©   (10.08.06 13:45) [3]
> Ну я так и делаю - все время ноль возвращаеться...


А ты туда что-то писал, если хочешь чтобы там что-то было?

---

← →
Ega23 ©   (2006-08-10 15:29) [6]

А всегда ли Cender"ом будет tButton?

---

← →
MsGuns ©   (2006-08-10 15:34) [7]

В [1] оптимальное решение

---

← →
ArtemESC ©   (2006-08-10 15:35) [8]

>>А всегда ли Cender"ом будет tButton?
TSpeedButton

>>SergP ©   (10.08.06 15:00) [5]
>>А ты туда что-то писал, если хочешь чтобы там что-то было?
У меня массив спидбатонных кнопок, в их таги, при создании я записываю их индексы, в OnClick  [3] работает, а с меню какая-то лажа...

---

← →
clickmaker ©   (2006-08-10 15:40) [9]

Если у всех SpeedButton.PopupMenu := ОдноНаВсехМеню, то в Menu.popupComponent точно должна быть кнопка
в Menu.OnClick соответственно
if (TPopupMenu(TMenuItem(Sender).GetParentMenu).PopupComponent.Tag = ...)

---

← →
Ega23 ©   (2006-08-10 15:41) [10]

У меня большие сомнения, что в качестве Sendera будет именно TButton (или TSpeedButton) приходить. Если мне не изменяет память, там Taction, вроде...
Проанализируй Sender.ClassName

---

← →
ArtemESC ©   (2006-08-10 15:42) [11]

clickmaker ©   (10.08.06 15:40) [9]
Thanks...

---

← →
umbra ©   (2006-08-10 15:55) [12]

2 Ega23 ©

может быть с TButton я и переборщил, но у TPopupMenu.OnPopup Sender - TObject

---

← →
umbra ©   (2006-08-10 16:01) [13]

2 umbra ©   (10.08.06 15:55) [12]

я хотел сказать, у (элемент меню).OnClick Sender - TObject

---

← →
clickmaker ©   (2006-08-10 16:03) [14]

> umbra ©   (10.08.06 16:01) [13]

и что? Он практически всегда TObject

---

← →
Плохиш ©   (2006-08-10 16:07) [15]

> umbra ©   (10.08.06 16:01) [13]
> 2 umbra ©   (10.08.06 15:55) [12]
>
> я хотел сказать, у (элемент меню).OnClick Sender - TObject

Это тип передаваемого параметра, а сам параметр может указывать на любой объект, являющийся потомком от TObject.

> ArtemESC ©   (10.08.06 15:42) [11]

А [2] было тихо не замечено?

---

← →
Ega23 ©   (2006-08-10 16:15) [16]

> может быть с TButton я и переборщил, но у TPopupMenu.OnPopup
> Sender - TObject


TButton тоже TObject, т.к. потомок в пятом поколении.
Я имел ввиду, что если ты будешь Sender к TBotton приводить, то не факт, что приведётся.

---

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

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.025 c