Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Общие вопросы > PopupMenu


Автор: Алкоголик 15.6.2009, 07:32
Здраствуйте.
Есть ряд кнопок при наведении на который должно выкатываться меню для выбора пункта.
Сделал это через PopupMenu
Код

var
  p: TPoint;
begin
  p := Fmain.Bntherm.ClientOrigin;
  p.X := p.X + Fmain.Bntherm.ClientRect.Right; // смещение к правому борту кнопки
  PopupMenu2.Popup(p.X, p.Y);
 end;

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

Автор: shmelina 15.6.2009, 16:00
Не совсем ответ: как я понял, ты хочешь повторить поведение "кликнутого" меню. Ты уверен, что тебе нужно это извращение?
Есть меню, есть тулбар. У каждого свое стандартное поведение. 
Я понимаю, когда хочется чуть больше. Например, кнопки в тулбаре разной ширины. Но ты что-то совсем странного хочешь. Попробуй пересмотреть свои желания smile.

Автор: cemick 15.6.2009, 21:03
PopupMenu показывается в модальном режиме

Автор: bems 15.6.2009, 21:09
У TrackPopupMenu есть особый флажок для "меню для меню"

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)