Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Закрытая тема
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 16.10.2014, 18:40
vikk vikk вне форума
Начинающий
 
Регистрация: 01.10.2010
Сообщения: 132
Репутация: 10
По умолчанию Точка появления выпадающего меню в неавтоматическом режиме

Здравствуйте!
Посоветуйте, пожалуйста, как заставить выпадающее меню выпадать в точке, где кликнуто мышкой, если AutoPopup = false(это нужно из-за того, что в зависимости от точки всплывания меняется видимость пунктов меню).
Попытка использовать ClientToScreen не привела к удовлетворительному результату. Либо криво использовалась, либо нужно что-то другое. Что именно? Заранее спасибо!
  #2  
Старый 16.10.2014, 18:59
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

Код:
PopupMenu1.Popup(100, 100);
__________________
Пишу программы за еду.
__________________
  #3  
Старый 16.10.2014, 19:40
phomm phomm вне форума
Новичок
 
Регистрация: 07.10.2013
Адрес: Тюмень
Сообщения: 50
Версия Delphi: 7/2007/XE+/FPC
Репутация: 22
По умолчанию

Код:
var
  p_Mouse: TPoint;
begin
  GetCursorPos(p_Mouse);
  MyMenu.Popup(p_Mouse.X, p_Mouse.Y);
Этот пользователь сказал Спасибо phomm за это полезное сообщение:
vikk (17.10.2014)
  #4  
Старый 17.10.2014, 11:05
vikk vikk вне форума
Начинающий
 
Регистрация: 01.10.2010
Сообщения: 132
Репутация: 10
По умолчанию

NumLock, ну и зачем мне появление меню в точке (100,100) ?

phomm, большое спасибо, сработало! Всё, как и ожидалось, оказалось просто и изящно )
  #5  
Старый 17.10.2014, 11:43
Аватар для M.A.D.M.A.N.
M.A.D.M.A.N. M.A.D.M.A.N. вне форума
Sir Richard Abramson
 
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
По умолчанию

Цитата:
Сообщение от vikk
NumLock, ну и зачем мне появление меню в точке (100,100) ?

Это был пример как вызвать попап-меню, получилось так, что координаты 100 100. Никто (ну, де-факто, кроме phomm) не будет за вас писать код.

Смирись.
__________________
— Как тебя понимать?
— Понимать меня не обязательно. Обязательно меня любить и кормить вовремя.


На Delphi, увы, больше не программирую.
Рекомендуемая литература по программированию
Закрытая тема


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 00:36.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025