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

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

Hook на нажатие кнопок мыши


Lucifer ©   (2005-12-01 16:35:00) 

Здравствуйте!
Проблема в следующем:
- есть программа, которая висит в трее, но как пользователь нажал на среднюю (к примеру) кнопку мыши она из трея вылезает!
и ещё вопросик:

- как закрыть окно (или приложение), находящееся под курсором мыши!

Заранее благодарен!


Leonid Troyanovsky   (2005-12-02 08:41:00) [1]


> Lucifer ©   (01.12.05 16:35)  


> - есть программа, которая висит в трее, но как пользователь
> нажал на среднюю (к примеру) кнопку мыши она из трея вылезает!

Точно также, как и другие сообщения мыши в обработчике notify
сообщения, например:

     case Msg.LParam of
       ..
       WM_MBUTTONDOWN:
         begin
            Show;
            ShowWindow(Application.Handle, SW_HIDE);
            ..
         end;
     end;


> - как закрыть окно (или приложение), находящееся под курсором мыши!

var
 p: TPoint;
 h: HWND;
begin
 GetCursorPos(p);
 h := WindowFromPoint(p);
 if h <> 0 then
   SendMessage(h, WM_CLOSE, 0, 0);
end;


--
Regards, LVT.


Наверх

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