форма и координаты мышки

← →
vlasov (2009-01-22 16:58) [0]

форма прячется за экран,при условии что курсор за 2ед. до левого края экрана, форма появляется. Все бы ничего, да только работает это когда программа активна(форма), а если развернуть скажем мой компьютер и моя программа фокус теряет, то форма больше не вылезает, пока ее не фокусировать.
этой функцией проверяю координаты мышки. Что нужно поменять чтобы форма вылезала всегда при наведении курсором в край экрана?
function TForm2.MouseInFormRect: Boolean; var MousePos: TPoint; begin GetCursorPos(MousePos); if (MousePos.X > Left-2) and (MousePos.X < Screen.WorkAreaWidth) and (MousePos.Y > Top) and (MousePos.Y < Screen.WorkAreaHeight) then Result := True else Result := False; end;

← →
@!!ex © (2009-01-22 17:10) [1]

Вероятно таймер нужен?

← →
clickmaker © (2009-01-22 17:48) [2]

а в какой момент взывается MouseInFormRect?

← →
Б (2009-01-22 18:15) [3]

Наведение мыши перехватывай в ApplicationManadger.

← →
Б (2009-01-22 18:21) [4]

> if (MousePos.X > Left-2) and (MousePos.X < Screen.WorkAreaWidth)
> and
> (MousePos.Y > Top) and (MousePos.Y < Screen.WorkAreaHeight)
> then

Для этого есть процедура ScreenToClient.

← →
fat.hamster (2009-01-22 18:50) [5]

понятно, что форма ловит не события OnMouse*, а просто перемещения мышки по экрану

когда фокус не на форме - она ничего и не ловит

хук на мышку поставить?

← →
Б (2009-02-21 18:24) [6]

Вот решение:
http://www.delphikingdom.com/asp/answer.asp?IDAnswer=64947

форма и координаты мышки Найти похожие ветки