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]

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

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