Кнопка

← →
TCrash (2008-03-25 12:14) [0]

Подскажите плиз компонент, реализующий функцию кнопки совмещенной с выпадающим меню, Пример такой кнопки - кнопка открытия файла в делфи на панели инструментов.
Нажимаешь на кнопку - открывается диалог, жмешь рядом - на маленькую кнопку - выпадает меню.

← →
Kolan © (2008-03-25 12:16) [1]

У кнопок тул бара есть свойство DropDownMenu и соотв. стиль.

← →
TCrash (2008-03-25 13:09) [2]

Глянул, спасибо.
Меня просто интересует кнопка не на панели инструментов.
Может пример неудачный привел.
Вот другой. MS Word, диалог открітия файла, кнопка ОК

← →
Kolan © (2008-03-25 13:23) [3]

TPoupUpMenu можно и к обычной кнопке приладить. И по клику делать PoupUp

← →
{RASkov} © (2008-03-25 13:24) [4]

> [2] TCrash (25.03.08 13:09)

Две кнопки и попапменю. Нажатие на правую приводит к выподанию меню. Нажатие на левую - обработчик действия по умолчанию в меню. Выбор в меню - смена умалчиваемого пункта меню.... Примерно так можно, а в чем собсно трабла?

← →
b z (2008-03-25 14:14) [5]

Что мешает положить тулбар с одной кнопкой и соотв. её настроить?

← →
TCrash (2008-03-25 15:10) [6]

Kolan © (25.03.08 13:23) [3]
{RASkov} © (25.03.08 13:24) [4]

Пробовал и то и то. Хочется, чтобы меню всплывало возле кнопки.
Кнопка находится в МДИчилд окне. Столкнулся с неправильным пересчетом координат функцией ClientToScreen. В результате меню всплівает у черта на куличках а не там где нужно. Брать координаті курсора не хочется.

← →
clickmaker © (2008-03-25 15:14) [7]

> Столкнулся с неправильным пересчетом координат функцией
> ClientToScreen

хочешь сказать, что функция неверно считает?

> [6] TCrash (25.03.08 15:10)

procedure TForm1.Button1Click(Sender: TObject); begin PopupMenu1.Popup(Button1.ClientOrigin.X, Button1.ClientOrigin.Y+Button1.Height); end;

Еще как вариант, есть в RxLib такая кнопка TRxSpeedButton, у нее есть свойство - DropDownMenu, как раз самое то...

← →
TCrash (2008-03-25 15:55) [10]

Button1.ClientOrigin.X
За ClientOrigin спасибо большое. Все получилось

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