События мыши

← →
Optical (2005-06-13 20:48) [0]

Подскажите пожалуйста как можно через событие мыши OnMouseLeave отменить событие OnMouseUp так, чтобы оно вообще не наступало. Заранее спасибо.

← →
Expl (2005-06-13 21:05) [1]

Создай глобальную переменную boolean и в событии OnMouseLeave делай ее true, например, а в OnMouseUp поставь условие с ее проверкой.

← →
Optical (2005-06-13 21:12) [2]

Так я и сделал... сначала... но мне нужен более гибкий подход. Дело в том что мне нужно написать одну процедуру, к которой будут обращаться около ста других компонент, иначе в обработчике события OnMouseUp каждого из них придётся писать лишнюю строку, скажем:
if not MouseInside then Exit;
а это ведь 100 лишних строк.......

← →
Virgo_Style © (2005-06-13 21:13) [3]

Можно проверять координаты мыши в момент отпускания клавиши.

← →
jack128 © (2005-06-13 21:17) [4]

попробуй вот это..
MyControl.ControlStyle := MyControl.ControlStyle - [csCaptureMouse];

← →
jack128 © (2005-06-13 21:19) [5]

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

← →
Expl (2005-06-13 21:19) [6]

и что эта запись делает?

Virgo_Style © (13.06.05 21:13) [3]

procedure TForm1.Button1MouseUp(Sender:TObject; Button:TMouseButton;Shift: TShiftState; X, Y:Integer); var R:TRect; P:TPoint; begin P.X := X; P.Y := Y; R.Left := 0; R.Right := (Sender as TControl).Width; R.Top := 0; R.Bottom := (Sender as TControl).Height; if PtInRect(R,P) then Memo1.Lines.Add("Есть!") else Memo1.Lines.Add("Промах %-)"); end;

Примерно так...

Expl (13.06.05 21:19) [6]
и что эта запись делает?
Если флаг csCaptureMouse взведен, тот при клике на контрол он захватывает мышь(вызывает SetCapture) и все сообщения от мыши приходят именно этому контролу. Когда приходит сообщение WM_LBUTTONUP захват мыши снимается..
Ели же флаг csCaptureMouse сброшен, то все сообщения от мыши идут именно тому контролу, над которым находится курсор.

События мыши Найти похожие ветки