Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 13.05.2022, 22:28   #1
AppData
Форумчанин
 
Регистрация: 20.09.2013
Сообщений: 246
По умолчанию Открыть 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
Сообщений: 1,833
По умолчанию

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

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

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


Купить рекламу на форуме - 42 тыс руб за месяц

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
рисовать на рабочем столе 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