Вне зоны доступа! WM

← →
AndreyRU (2007-05-30 08:03) [0]

Доброго времени суток Мастера!!

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

← →
Loginov Dmitry © (2007-05-30 08:08) [1]

Не надо ничего выдумывать. Если произошло нажатие левой кнопки мыши OnMouseDown, то OnMouseMove будет всегда выполнятся, пока не произойдет OnMouseUp

← →
AndreyRU (2007-05-30 08:14) [2]

Мммм.. Странно, но у меня так не прокатывает. Когда я выхожу за пределы окна с нажатой Л.К. то MouseMove перестает отрабатываться, и если отпустить Л.К вне моего контрола то MouseUp тоже не срабатывает.

← →
Loginov Dmitry © (2007-05-30 08:30) [3]

Не верю.

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

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

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

← →
Однокамушкин (2007-05-30 08:39) [4]

Чтобы перемещение мыши отлавливалось за пределами контрола, контрол должен захватить мышь, т.е. сделать SetCapture... при отпускании кнопки захват нужно снять... некоторые контролы делают это самостоятельно, некоторые нет, это зависит от наличия флага csCaptureMouse в свойстве ControlStyle... установите этот флаг у своего контрола, и будет вам счастье...

← →
AndreyRU (2007-05-30 08:40) [5]

Мдя. Верно.. Спасибо!!

Нажатие и удержание над контролом левой кнопки мыши это тот же самый SetCapture. Пока кнопка мыши не будет отпущена, все сообщения мыши будут приходить в окно контрола и отпускание кнопки за пределами контрола в том числе.

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

SetCapture/ReleaseCapture

Вне зоны доступа! WM_MOUSEMOVE Найти похожие ветки