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

[Miha85193]

А что мой вариант не подходит?

А как можно получить позицию курсора относительно всего экрана? Если конечно такое возможно.

Посмотри код, который я тебе написал, там все есть.

[SERG1980]

Попробуйте использовать следующие события имиджа
Пример:

procedure TForm1.Image1MouseEnter(Sender: TObject);
begin
 edit1.Text:='true';//когда в области имиджа
end;

procedure TForm1.Image1MouseLeave(Sender: TObject);
begin
 edit1.Text:='false';//когда мышь покидает имидж
end;

примените это к вашим флагам

[Miha85193]

Да действительно, был не прав. Мой вариант таки не подходит. Но кое что он всетаки умеет. Если интересно то вот:

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.

Правда с маусом небольшая проблема (я имею в виду то, что нельзя отловить нажатие правой кнопки). Но зато можно отловить курсор за пределами Имеиджа. Ну вот в принципе и все. Код проверял, работает.