TToolButton, tbsDropDown

← →
Andriy Tysh © (2003-10-09 14:51) [0]

Есть ToolButton со стилем tbsDropDown.
Мне нужно показато всплывающее меню при нажатии на нём,
как при нажатии кнопочки с треугольником збоку.
Я делаю так:
TToolButton(Sender).DropdownMenu.Popup(AX, AY);
на OnClick.
Но тут нужно вычислять руками координаты.
А как програмно заставить его это сделать?

← →
ZEE © (2003-10-09 15:11) [1]

хм... а TToolButton.Style:=tbsButton + TToolButton.DropDownMenu:=PopupMenu1 тебе не подойдет?

← →
Andriy Tysh © (2003-10-09 16:37) [2]

> ZEE © (09.10.03 15:11) [1]

Это прикол?
Ибо я ничего не понял!
Если нет, поподробнее опишите, плз.

> ZEE © (09.10.03 15:11) [1]

Прошу извенения, я сначала не понял, что это такое.
Полностью это должно было выглядеть так:
TToolButton(Sender).Style:=tbsButton; TToolButton(Sender).DropDownMenu:=PopupMenu1;
И это действительно подходит мне.
Спасибо.

TToolButton, tbsDropDown Найти похожие ветки