ToolButton & PopupMenu

← →
Andrey V. (2003-01-29 12:01) [0]

На ToolBare лежат две ToolButton (стиль у обеих tbsDropDown).
И есть одно PopupMenu.
У обеих кнопок DropDawnMenu=одно и тоже PopupMenu.
Вопрос : как узнать в событии onClick элемента PopupMenu
на какой из двух ToolButton вызвали это меню ?

← →
DVM © (2003-01-29 12:06) [1]

у PopUpMenu есть свойство PopupComponent вроде - тот компонент, который и вызвал появление меню

← →
Andrey V. (2003-01-30 16:11) [2]

Увы PopupComponent в моем случае указывает на ToolBar,
а мне надо знать с какой кнопки вызвали меню ...

← →
Романов Р.В. © (2003-01-30 16:49) [3]

В OnMouseDown запоминать кнопку.

← →
Andrey V. (2003-02-02 13:50) [4]

OnMouseDown не работает если вызывать DropDawnMenu на жатием
правой части кнопочки (со стилем tbsDropDown)

← →
Романов Р.В. © (2003-02-02 14:25) [5]

Думаю проще будет сделать разные меню.

← →
Andrey V. (2003-02-03 10:51) [6]

:-)
Так изначально и сделал. Только они как раз не РАЗНЫЕ ,
а ОДИНАКОВЫЕ (кроме имен конечно).
Но это не есть красиво ИМНО.

Можно сделать так

procedure TFormX.OnToolButton1Click(...)
begin
MyPopUpMenu.Tag = 1;
end

procedure TFormX.OnToolButton2Click(...)
begin
MyPopUpMenu.Tag = 2;
end

Так устроит ???

← →
Andrey V. (2003-02-03 11:30) [8]

Нет
:-)
onClick не отрабатывает при вызове меню - ну то биш
при нажатии на фишку , что dropdownmenu вызывает .

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