Скачать: CL | DM;

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

← →
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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.01 c