Обработчики событий мыши для компоненты Image

[Don Karleone]

На форме есть Image1. Для него есть три обработчика события мыши:

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbRight then flag:=true;  {если нажата правая кнопака,  глобальная переменная flag получает значение trye}
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbRight then flag:=false;  {если кнопка отпущена, flag плучает значение false}
end;

Есть еще один обработчик Image1MouseMove. Там в зависимости от значения переменной flag проделывается ряд действий.

Мне нужно, чтобы когда я нажму правую кнопку мыши и не отпуская ее выведу курсор за пределы компоненты Image1 переменная flag получила значение false. Как это сделать???

[JTG]

SetCapture(hwnd);

Но, увы. TImage окном не является, дескриптора не имеет, так что с ним такие фокусы не пройдут. Можно поискать другой компонент или переписать TImage как потомка TWinControl (смотри тут, http://programmersforum.ru/showthread.php?p=569062, только в данном случае ControlStyle менять не нужно)

Может быть ещё получится TImage'м накрыть TPanel и передавать клик ей, но это как-то некрасиво

[Don Karleone]

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

SetCapture(hwnd);

можно про это по подробнее.

[Miha85193]

В обработчике события MouseMove напишите

if (ssRight in Shift)and(( X <= Image1.Left)or(Y <= Image1.Top)or(X >= Image1.ClientWidth)or(Y >= Image1.ClientHeight)) then
  Flag := False;

[Don Karleone]

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

В обработчике события MouseMove напишите

if (ssRight in Shift)and(( X <= Image1.Left)or(Y <= Image1.Top)or(X >= Image1.ClientWidth)or(Y >= Image1.ClientHeight)) then
  Flag := False;

не работает

[Miha85193]

А на чем у тебя Имеидж?

[Don Karleone]

Form1. И к стати, Image может занимать всю клиентскую область формы.

[JTG]

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

Дописать обработчики onMouseEnter/onMouseLeave (в новых делфях они кажись есть и так), и повесить на onMouseLeave обнуление флага
http://programmersforum.ru/showpost....58&postcount=9

[Miha85193]

Сообщение от Don Karleone

не работает

Тогда ничего не остается, как бросить на форму таймер и написать в onTimer следующее:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  Left_Top_Screen, Right_Bottom_Screen: TPoint; // координаты относительно клиентской области
begin
  // Узнаем координаты Имеиджа относительно левого верхнего угла экрана
  Left_Top_Screen := ClientToScreen(Image1.ClientRect.TopLeft);
  Right_Bottom_Screen  := ClientToScreen(Image1.ClientRect.BottomRight);
  
  if (( Mouse.CursorPos.X <= Left_Top_Screen.X)or
      (Mouse.CursorPos.Y <= Left_Top_Screen.Y)or(Mouse.CursorPos.X >= Right_Bottom_Screen.X)or(Mouse.CursorPos.Y >= 

Right_Bottom_Screen.Y)) then
    MessageBeep(MB_ICONEXCLAMATION);
end;

Mouse.CursorPos.X и Mouse.CursorPos.Y - координаты курсора относительно экрана
ClientToScreen - функция, которая переводит координаты клиентской области в координаты экрана.
Тип результата функции - TPoint.

[Don Karleone]

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

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

Дописать обработчики onMouseEnter/onMouseLeave (в новых делфях они кажись есть и так), и повесить на onMouseLeave обнуление флага
http://programmersforum.ru/showpost....58&postcount=9

Да, да, да... Это я знаю Только я пишу в Delphi 7 и очень хочется разобраться, как это можно реализовать там
А как можно получить позицию курсора относительно всего экрана? Если конечно такое возможно.