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

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

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

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

---

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

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

---

← →
Sandman25 ©   (2004-06-09 17:50) [18]

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

---

← →
Anatoly Podgoretsky ©   (2004-06-09 17:54) [19]

Sandman25 ©   (09.06.04 17:50) [18]
Не пойдет до него дело может не дойти.

---

← →
Sandman25 ©   (2004-06-09 17:58) [20]

[19] Anatoly Podgoretsky ©   (09.06.04 17:54)

Ну если нужно "глобально", тогда, конечно.

---

← →
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"; по сто исполняется. что делать?

---

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

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



Память: 0.49 MB
Время: 0.021 c