Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Иконка в трее, Контекстное меню 
V
    Опции темы
Foley
Дата 3.5.2006, 14:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Фсемба Яцца
*


Профиль
Группа: Участник
Сообщений: 235
Регистрация: 31.1.2006
Где: Россия, Арх.обл

Репутация: 2
Всего: 7



Подскажите как мне вычислить координаты курсора на рабочем столе, мне это необходимо для контекстного меню (Popup-menu) у меня прога помещает свой значок в трей и творит там свои делишки. Обрабатываю WM_RBUTTONDOWN (появляется, только не там где надо, а если четко установить то при изменении разрешения они изменятся) пишу PopupMenu1.Popup(x,y), но четко не представляю как координаты вычислить( чтоб попуп на иконке был)… На форме легко вычислить, а на десктопе не могу догадаться. Пробовал всяко...  
PM MAIL ICQ   Вверх
_hunter
Дата 3.5.2006, 14:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98



экранные координаты можно получить через TMouse.CursorPos
а что ты понимаеш под "оординаты курсора на рабочем столе"? 


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
Guedda
Дата 3.5.2006, 14:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Подрывник
****


Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78



У меня в программе так:
Код

type
  TForm1 = class(TForm)
  //...
  private
    procedure wmusr(var Msg : TMessage); message WM_USER + 1;
  //...


procedure Tform1.wmusr(var Msg : TMessage);
var
  P : TPoint;
begin
  GetCursorPos(P);
  SetForegroundWindow(Application.MainForm.Handle);
  PopupMenu1.Popup(P.X, P.Y);
  Msg.Result := 0;
end;
 


--------------------
Ll 2
PM MAIL WWW ICQ Skype GTalk   Вверх
Alexeis
Дата 3.5.2006, 14:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459



Код

var
  p : TPoint;

GetCursorPos(p); 


Опоздал...  

Это сообщение отредактировал(а) alexeis1 - 3.5.2006, 14:43


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Foley
Дата 3.5.2006, 14:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Фсемба Яцца
*


Профиль
Группа: Участник
Сообщений: 235
Регистрация: 31.1.2006
Где: Россия, Арх.обл

Репутация: 2
Всего: 7



Цитата(_hunter @  3.5.2006,  14:36 Найти цитируемый пост)
а что ты понимаеш под "оординаты курсора на рабочем столе"?  

они же просто координаты, просто я имел ввиду что когда курсор над формой моей проги, то его положение вычислить проще пареной репы... а когда нету формы то сложней...
с пойнтом пробовал, но не знал как использовать его координаты... спасибо всем...
 
PM MAIL ICQ   Вверх
Snowy
Дата 3.5.2006, 14:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484



Цитата(Guedda @  3.5.2006,  14:39 Найти цитируемый пост)
GetCursorPos(P);
Зачем? В Mouse.CursorPos все уже есть.
PopupMenu1.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y); 
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.0591 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.