Форум программистов
 
Регистрация на форуме тут, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль

Купить рекламу на форуме 15-35 тыс рублей в месяц

Вернуться   Форум программистов > Web программирование > Общие вопросы Web
Регистрация

Восстановить пароль
Повторная активизация e-mail


           Интенсив по Python 3-5 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
           Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Ответ
 
Опции темы Поиск в этой теме
Старый 13.05.2022, 22:28   #1
AppData
Форумчанин
 
Регистрация: 20.09.2013
Сообщений: 201
По умолчанию Открыть PopupMenu где курсор на рабочем столе

как открыть PopupMenu где курсор на рабочем столе

Код:
procedure TMyForm.FormMouseUp(Sender:TObject;
    Button:TMouseButton;
    Shift:TShiftState; x, y:Integer);
var p :TPoint;
begin
p:=GetClientOrigin;
if Button = mbRight then PopupMenu1.Popup(p.x+x, p.y+y);
end;
AppData вне форума Ответить с цитированием
Старый 13.05.2022, 22:32   #2
macomics
Форумчанин
 
Регистрация: 17.04.2022
Сообщений: 205
По умолчанию

ClientToScreen
Или подставляйте координаты как есть (без GetClientOrigin). Они задаются в области экрана.

Последний раз редактировалось macomics; 13.05.2022 в 22:35.
macomics на форуме Ответить с цитированием
Старый 13.05.2022, 22:36   #3
AppData
Форумчанин
 
Регистрация: 20.09.2013
Сообщений: 201
По умолчанию

Код:
with Button1.ClientToScreen(point(0, 0)) do
     PopupMenu1.Popup(X, Y);
AppData вне форума Ответить с цитированием
Ответ

          Оплата за обучение в Kata Academy только после твоего трудоустройства в IT!
          Начни карьеру Middle Java-разработчика, подробнее на сайте академии, ссылка - https://clck.ru/fCqwP

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

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
рисовать на рабочем столе NewLamer&Programer Общие вопросы Delphi 31 15.05.2013 14:51
Открыть доступ к папке находящейся на рабочем столе всем пользователям интернет romantik2011 Операционные системы общие вопросы 4 03.08.2011 00:04
Рисование на рабочем столе... Johnson Общие вопросы Delphi 7 13.07.2011 19:22
ЧАТ на Рабочем столе! Kachimov Свободное общение 7 11.08.2010 01:21
SpeedButton на рабочем столе ERASERROR Общие вопросы Delphi 10 22.01.2008 16:58