Потеря фокуса формой

@8adim · Регистрация: 27.01.2011

Author24 — интернет-сервис помощи студентам

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

// Опытный программист на С++ легко решит любые, несуществующие в
// Паскале проблеммы.

@Mad_Dog · 02.02.2011, 12:12

Delphi

procedure TForm1.FormDeactivate(Sender: TObject);
begin
  ReleaseCapture
end;
 
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
  If GetCapture=0 then SetCapture(Form1.Handle);
  if PtInRect(Rect(Form1.Left, Form1.Top, Form1.Left + Form1.Width, 
                                        Form1.Top + Form1.Height), ClientToScreen(Point(x, y))) 
    then Form1.Caption := 'Мышка на форме' 
    else Form1.Caption := 'Мышка за пределами формы'
end;

@anonimus · 02.02.2011, 12:24

Delphi

1	procedure CMMouseLeave(var msg: TMessage); message CM_MOUSELEAVE;

процедура обрабатывается когда мышь покидает пределы формы

Добавлено через 15 секунд

Delphi

1	procedure CMMouseLeave(var msg: TMessage); message CM_MOUSELEAVE;

процедура обрабатывается когда мышь покидает пределы формы

@8adim · 04.02.2011, 10:42 **[ТС]**

Сообщение от Mad_Dog

Delphi

procedure TForm1.FormDeactivate(Sender: TObject);
begin
  ReleaseCapture
end;
 
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
  If GetCapture=0 then SetCapture(Form1.Handle);
  if PtInRect(Rect(Form1.Left, Form1.Top, Form1.Left + Form1.Width, 
                                        Form1.Top + Form1.Height), ClientToScreen(Point(x, y))) 
    then Form1.Caption := 'Мышка на форме' 
    else Form1.Caption := 'Мышка за пределами формы'
end;

Почти работает, но не для моего случая: на форме куча Timage, которые закрывают ее полностью

Может я что-то не так сделал? Могу код.

Добавлено через 1 минуту

Сообщение от anonimus

Delphi

1	procedure CMMouseLeave(var msg: TMessage); message CM_MOUSELEAVE;

процедура обрабатывается когда мышь покидает пределы формы

Добавлено через 15 секунд

Delphi

1	procedure CMMouseLeave(var msg: TMessage); message CM_MOUSELEAVE;

процедура обрабатывается когда мышь покидает пределы формы

Все хорошо, пока мышка не залазит на первый же из компонентов формы и тогда срабатывает CMMouseLeave, хоть реально мышь еще над формой

@8adim 0 / 0 / 0 Регистрация: 27.01.2011 Сообщений: 7
		1
	Потеря фокуса формой 02.02.2011, 11:54. Показов 4101. Ответов 3 Метки нет (Все метки) Хочу как-то словить событие, когда курсор мыши уходит с формы. Кроме как по таймеру определять позицию мыши на экране и сравнивать с координатами формы, ничего другого пока в голову не приходит. // Опытный программист на С++ легко решит любые, несуществующие в // Паскале проблеммы. 0

	04.02.2011, 10:42