PopupMenu - Общие вопросы Delphi

Teen4jump · 12.03.2008, 10:23

Как селать, что бы PopupMenu всплывало на границе с кнопкой.... Как в MainMenu??? Если выпадает вниз -- на нижней границе кнопки, если вверх - на верхней.

alexBlack · 12.03.2008, 10:41

Можно обработать нажатие правой клавиши мышки и вызвать меню самому в любом месте:

PopupMenu1.Popup(X, Y);

Teen4jump · 12.03.2008, 10:56

Я так и делаю. К примеру, если меню выпадает вниз, то оно касается границы кнопки, если выпадает вверх, то уже не получается ровно на границе кнопки. Надо чтобы получалося как на картинке, только с PopupMenu..

alexBlack · 12.03.2008, 11:56

Может с вычислением позиции какая-то путаница. На код можно глянуть ?

mutabor · 12.03.2008, 12:59

Если вызывать методом Popup, то оно от курсора или вверх или вниз, система сама решает. Нужно самому перед вызовом определять влезет ли меню на экран, и в какую сторону не влезает. Если не влезет то переопределить координаты отняв или высоту или ширину кнопки или и то и другое.

_Dmitry · 12.03.2008, 13:11

Цитата:

Сообщение от mutabor

Нужно самому перед вызовом определять влезет ли меню на экран, и в какую сторону не влезает. Если не влезет то переопределить координаты отняв или высоту или ширину кнопки или и то и другое.

Не поможет, всеравно будут глюки. Например, меню вылазит вниз за экран на 1 пиксел, мы вычитаем высоту кнопки 20 пикселов, теперь оно входит на экран, открывается вниз и закрывает кнопку.

Код:

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  P: TPoint;
begin
  if Button <> mbRight then exit;
  P.X:=Button1.Left;
  P.Y:=Button1.Top+Button1.Height;
  P:=ClientToScreen(P);
  if (P.Y+PopupMenu1.Items.Count*17+4) >= Screen.Height then P.Y:=P.Y-Button1.Height;
  PopupMenu1.Popup(P.X,P.Y);
end;

Нужно как-то принудительно открывать меню вверх или вниз...

mutabor · 12.03.2008, 13:25

Цитата:

Не поможет, всеравно будут глюки. Например, меню вылазит вниз за экран на 1 пиксел, мы вычитаем высоту кнопки 20 пикселов, теперь оно входит на экран, открывается вниз и закрывает кнопку.

Упс, ошибочка вышла. Не высоту кнопки нужно вычитать, а высоту меню + высота кнопки.

_Dmitry · 12.03.2008, 13:34

Ха, теперь работает

Код:

  if (P.Y+PopupMenu1.Items.Count*17+4) >= Screen.Height then
    P.Y:=P.Y-Button1.Height-PopupMenu1.Items.Count*17-4;

Teen4jump · 12.03.2008, 13:36

Когдато на этом форуме скачал чат.... Вот там меню выпадает так, как мне надо. Вот ссылка:
http://programmersforum.ru/attachmen...9&d=1196394144

_Dmitry · 12.03.2008, 13:41

Цитата:

Сообщение от Teen4jump

Когдато на этом форуме скачал чат.... Вот там меню выпадает так, как мне надо.

Нет, работает не так, как надо: тот же самый глюк, см. пост #6

12.03.2008, 12:59	#5
mutabor Телепат с дипломом Старожил Регистрация: 10.06.2007 Сообщений: 4,929	Если вызывать методом Popup, то оно от курсора или вверх или вниз, система сама решает. Нужно самому перед вызовом определять влезет ли меню на экран, и в какую сторону не влезает. Если не влезет то переопределить координаты отняв или высоту или ширину кнопки или и то и другое. The future is not a tablet with a 9" screen no more than the future was a 9" black & white screen in a box. It’s the paradigm that survives. (Kroc Camen) Проверь себя! Онлайн тестирование \| Мой блог

12.03.2008, 13:34	#8
_Dmitry Участник клуба Регистрация: 02.09.2007 Сообщений: 1,193	Ха, теперь работает Код: `if (P.Y+PopupMenu1.Items.Count17+4) >= Screen.Height then P.Y:=P.Y-Button1.Height-PopupMenu1.Items.Count17-4;`

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
PopupMenu	Патрон	Общие вопросы Delphi	7	15.06.2008 14:04
PopupMenu и gif	Dj_smart	Мультимедиа в Delphi	6	06.06.2008 11:33
PopupMenu	TaTT DoGG	Компоненты Delphi	13	23.05.2008 13:19
PopupMenu	Михаил Юрьевич	Общие вопросы Delphi	6	03.05.2008 18:46
Про PopupMenu	Михаил Юрьевич	Общие вопросы Delphi	2	23.02.2008 23:38

12.03.2008, 10:41	#2
alexBlack Участник клуба Регистрация: 12.10.2007 Сообщений: 1,204	Можно обработать нажатие правой клавиши мышки и вызвать меню самому в любом месте: PopupMenu1.Popup(X, Y);

12.03.2008, 10:56	#3
Teen4jump Пользователь Регистрация: 19.06.2007 Сообщений: 88	Я так и делаю. К примеру, если меню выпадает вниз, то оно касается границы кнопки, если выпадает вверх, то уже не получается ровно на границе кнопки. Надо чтобы получалося как на картинке, только с PopupMenu..

12.03.2008, 11:56	#4
alexBlack Участник клуба Регистрация: 12.10.2007 Сообщений: 1,204	Может с вычислением позиции какая-то путаница. На код можно глянуть ?

12.03.2008, 13:36	#9
Teen4jump Пользователь Регистрация: 19.06.2007 Сообщений: 88	Когдато на этом форуме скачал чат.... Вот там меню выпадает так, как мне надо. Вот ссылка: http://programmersforum.ru/attachmen...9&d=1196394144