Мышка

← →
Ivolg (2004-06-09 16:33) [0]

Здрасьте люди добрые. Помогите пожайлусто! Мне нужно чтоб когда не шевелишь курсором мышки происходила мая процедура а когда шевелишь то моя процедура не работала? СПАСИБО!

← →
BFG9k (2004-06-09 16:36) [1]

Ну и в чем проблема ? Таймер на запуск процедуры , при возникновении OnMouseMove таймер обнуляется.

← →
Anatoly Podgoretsky © (2004-06-09 16:38) [2]

Так только твоя процедура и будет работать на компьютере.

← →
[BAD]Angel (2004-06-09 16:39) [3]

смотря где?! если на форме то вариант BFG9k прокатит если нет, то либо сообщение ловить надо, либо Mouse.CursorPos.X и Y соответственно! Только не на таймер! (много ресурсов и процессорного времени жрет зараза :))

Самый логичный способ это ловить мессагу на шивиление мышью :)

← →
Ivolg (2004-06-09 16:42) [4]

BFG9k

Проблема в том что, у меня таймер запускает по нескольку раз мою процедуру. А надо чтоб он один раз запускал.

← →
Ivolg (2004-06-09 16:43) [5]

[BAD]Angel

Ну мож пример написать. Буду очень признателен.

← →
[BAD]Angel (2004-06-09 16:45) [6]

ну в чем проблемма? запусти и отключи таймер

← →
GuAV © (2004-06-09 16:49) [7]

> А надо чтоб он один раз запускал.

Timer.Destroy в этой процедуре и больше она не запустися... ;-)

← →
Anatoly Podgoretsky © (2004-06-09 16:49) [8]

Сделай пустую форму, этого достаточно, будет работать согласно вопросу.

← →
[BAD]Angel (2004-06-09 16:50) [9]

можно и помягче :) Timer1.Enabled:=false;

← →
[BAD]Angel (2004-06-09 16:52) [10]

Anatoly Podgoretsky и что эта пустая форма даст?

← →
GuAV © (2004-06-09 16:54) [11]

[BAD]Angel (09.06.04 16:50) [9]
помягче - это без AV ? :)

← →
[BAD]Angel (2004-06-09 17:01) [12]

нет, без Destroy :)

← →
Anatoly Podgoretsky © (2004-06-09 17:07) [13]

[BAD]Angel (09.06.04 16:52) [10]
Очень просто, при движении мышки управление будет попадать в обработчик если он есть и втихую гаситься, все остальное время его.

← →
[BAD]Angel (2004-06-09 17:09) [14]

а если надо не использовать форму? чтобы события от мышки приходили вне зависимости от того, где она находится на форме или вне ее? как тогда?

← →
Agent13 © (2004-06-09 17:27) [15]

Очень интересно, что за процедура такая хитрая.

← →
[BAD]Angel (2004-06-09 17:31) [16]

наверное ведется подсчет, сколько времени юзверь ничего не делает :))

[BAD]Angel (09.06.04 17:09) [14]
SetCapture

Application.OnIdle не подойдет?

← →
Ivolg (2004-06-09 18:36) [21]

Не получается всё равнно!! я делаю так:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
timer1.Enabled:=false;
timer2.Enabled:=true;
caption:="Off";
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
timer1.Enabled:=true;
caption:=caption+"2";
end;

У меня caption:=caption+"2"; по сто исполняется. что делать?

Мышка Найти похожие ветки