Форум: "Основная";
Текущий архив: 2004.06.27;
Скачать: [xml.tar.bz2];
Вниз
Мышка Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2004.06.27;
Скачать: [xml.tar.bz2];
Память: 0.48 MB
Время: 0.043 c
