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

Screensaver   Найти похожие ветки 

← →
tq   (2005-11-18 17:09) [0]

Я кинул таймер:
procedure TForm1.ScreenTimerTimer(Sender: TObject);
begin
screentime:=screentime+1000;
if screentime=60000 then
screensaver.visible:=true;
end;

И поставил общий обработчик событий на все объекты:
procedure TForm1.backMouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer);
begin
screentime:=0;
screensaver.visible:=false;
end;

В итоге скринсэйвер вообще не запускается по причине того что обработчик срабатывает постоянно когда мышь находится на объекте, как реализовать что-бы обработчик запускался при конкретно движении мыши?

---

← →
Leonid Troyanovsky ©   (2005-11-18 17:13) [1]

> tq   (18.11.05 17:09)  

> на объекте, как реализовать что-бы обработчик запускался
> при конкретно движении мыши?


Скажем, запомнинать координаты мыши.
И вызывать обработчик, если оные изменились.

--
Regards, LVT.

---

← →
tq   (2005-11-18 17:30) [2]

Вытекает другой вопрос: а где брать координаты мыши?

---

← →
Джо ©   (2005-11-18 17:31) [3]

> а где брать координаты мыши?

Наверное, в параметрах метода-обработчика, не так ли?

---

← →
tq   (2005-11-18 17:34) [4]

Точно..спасибо.

---

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

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



Память: 0.45 MB
Время: 0.026 c