Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Вне зоны доступа! WM_MOUSEMOVE [D7, WinXP]

AndreyRU © (2007-05-30 08:03:00)
Доброго времени суток Мастера!!

Встала острая необходимость отработать в своей проге одну штуку. Задача следующая: на TPanel или любой производной TWinControl после нажатия Л.К мыши, реагировать на перемещение курсора. Внутри самого контрола я отрабатываю WM_MOUSEMOVE, а вот если выйти за его границы, то сообщения прекращают поступать. Сейчас использую хук на мыш, но более чем уверен что можно использовать и более простой механизм. Итак: Необходимо отработать события перемещения курсора и MouseUP за пределами контрола. Спасибо за любую помощ!

Игорь Шевченко (2007-05-30 11:03:00) [1]

> Сейчас использую хук на мыш, но более чем уверен что можно
> использовать и более простой механизм

SetCapture/ReleaseCapture

DVM (2007-05-30 10:46:00) [2]
Нажатие и удержание над контролом левой кнопки мыши это тот же самый SetCapture. Пока кнопка мыши не будет отпущена, все сообщения мыши будут приходить в окно контрола и отпускание кнопки за пределами контрола в том числе.

AndreyRU (2007-05-30 08:40:00) [3]
Мдя. Верно.. Спасибо!!

Однокамушкин (2007-05-30 08:39:00) [4]
Чтобы перемещение мыши отлавливалось за пределами контрола, контрол должен захватить мышь, т.е. сделать SetCapture... при отпускании кнопки захват нужно снять... некоторые контролы делают это самостоятельно, некоторые нет, это зависит от наличия флага csCaptureMouse в свойстве ControlStyle... установите этот флаг у своего контрола, и будет вам счастье...

Loginov Dmitry (2007-05-30 08:30:00) [5]
Не верю.

Создай новое приложение, добавь одну панельку и вставь следующий код:

procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Beep; end;

После нажатия и удерживания левой кнопки должно пищать при любом движении мышки в любом месте экрана.

AndreyRU (2007-05-30 08:14:00) [6]
Мммм.. Странно, но у меня так не прокатывает. Когда я выхожу за пределы окна с нажатой Л.К. то MouseMove перестает отрабатываться, и если отпустить Л.К вне моего контрола то MouseUp тоже не срабатывает.

Loginov Dmitry (2007-05-30 08:08:00) [7]
Не надо ничего выдумывать. Если произошло нажатие левой кнопки мыши OnMouseDown, то OnMouseMove будет всегда выполнятся, пока не произойдет OnMouseUp

Наверх

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