Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Трей и мышка [D6, WinXP]


DNT ©   (2002-03-24 11:57:00) 

У меня есть такой код:
Procedure TForm1.WndProc(Var Msg:TMessage);
Var P:TPoint;
Begin
If Msg.Msg=WM_USER+1
then Case Msg.lParam of
WM_LBUTTONDOWN :
begin

end

end ;
Inherited
End;


Он обрабатывает сообщения от иконки в трее.
Мне необходимо узнать координаты мышки в момент нажатия.
Я так понимаю, что нужно отдельно отлавливать WM_MOUSEMOVE и заносить координаты к переменные программы.
Подскажите плиз, как это сделать.


DNT   (2002-03-24 17:42:00) [1]

Спасибо всем!


Atrem   (2002-03-24 16:24:00) [2]

Узнать координаты мышки можно с помощью след.метода:
var t:tpoint;
begin
getcursorpos(t);
showmessage("x="+inttostr(t.x)+" y="+inttostr(t.y));


SPeller   (2002-03-24 14:18:00) [3]

Попробуй в момент получения сообщения определить позицию курсора.


Наверх

Титульная страница Поиск, карта сайта Написать письмо