[a.n.d.r.e.w]

Привет форум!

пишу САПР. барабашку заметил только на конечном этапе
раз в секунду происходит самопроизвольное событие MouseMove
вот пример:

Код:

unit Unit1;

interface

uses

  System.SysUtils,
  System.Classes,
  Vcl.Forms;



type
  TForm1 = class(TForm)
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
  end;

var
  Form1: TForm1;  Cnt: integer;

implementation

{$R *.dfm}

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 inc(cnt);
 Caption:=inttostr(cnt);
end;

end.

1.тикает в заголовке циферка раз в секунду.
2.только когда окно в фокусе.
3.только когда курсор в клиентской части формы.

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

[M.A.D.M.A.N.]

Проверять изменение координат.

[a.n.d.r.e.w]

координаты не меняются

Код:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
 inc(cnt);
 Caption:=format('X=%d, Y=%d, Cnt=%d', [X, Y, cnt]);
end;

cnt тикает x, y нет

проверять на изменение координат этож устранение последствий
а причина то в чем может быть?

[Alegun]

Для начала переменную лучше сразу при объявлении задать нулевой, типа как Cnt: integer = 0;

На D7 такого глюка получить почти не удалось, что только не делал, только при ЛКМ cnt тикает, а координаты нет, и ещё когда положил мышку на дребезжащую поверхность рядом с работающим шлифовальным станком тоже подобное наблюдалось :ю), в смысле может попробовать убрать немного чувствительность сенсора в настройках системы

З.Ы. А вот так

Код:

...
var
  Form1: TForm1;
  Cnt: integer = 0;
  flg: TPoint;
  implementation

{$R *.dfm}

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 if (flg.X <> X) or (flg.Y <> Y) then inc(cnt);
 flg.X:= X;
 flg.Y:= Y;
end;

эффект пропал и на ЛКМ

[a.n.d.r.e.w]

глюк тока на этом компьютере.
если запустить екзешник на другом компе все ок.
и кстате даже на этом же компе но в терменалке
все хорошо.. значит не мышка, и не драйвер, так ведь?

[Alegun]

Мыша какя - usb или ps/2? Может мышиный порт и дохлым быть, если в него "на горячую" подрубаться

[a.n.d.r.e.w]

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

[Alegun]

Сообщение от a.n.d.r.e.w

не.. мышка и клавиатура беспроводная...

У меня тоже вопрос в том, в какой порт воткнут крысиный передатчик - если в круглый и зелёный, то следует проверить любой юэсбишной мышой (плоский "папа" с 4я или 8ю контактами) предварительно вырубив поддержку PS/2 в биосе - если глюк пропадёт, тогда точно палёный порт

[icWasya]

А эта же мышка на беспроблемном компьютере?
А замена батарейки?

[Страдалецъ]

Да все наверное проще простого. Мыша лежит на столе, стол от системника вибрирует немного, что и передается мыше. Просто выработка вентиляторов в системнике и все.

[Alegun]

Сообщение от Страдалецъ

Да все наверное проще простого...

Ну не до такой же степени выработка-то :ю)

Я помню горелый порт, симптом как бы западала средняя кнопка, более похоже

[Verevkin]

1.тикает в заголовке циферка раз в секунду.
2.только когда окно в фокусе.
3.только когда курсор в клиентской части формы.

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

А ты, для начала, проверь, получают ли окна других приложений, находящиеся под курсором, сообщение WM_MOUSEMOVE раз в секунду при находящейся в покое мыши.

[a.n.d.r.e.w]

Клавиатурномышечный приемопередатчик воткнут в усб.
Любые окна получают сообщение от мышки, даже если я вынимаю адаптер из гнезда, даже если я включаю проводную мышь, даже если я кладу ее вверх сенсором.
проверить приложения сторонних разработчиков не могу.
но на моих на всех. компилил и на хе7 ин а д7 таже фигня.

[Alegun]

...Любые окна получают сообщение от мышки, даже если я вынимаю адаптер из гнезда...

Похоже и впрямь, проблемы с железом

Опять вода льётся из ведра Уже целая портянка образовалась, а о конфигурации матчасти почти ни слова, а с этого надо было начинать, иначе так и будет гадание на крофейной гуще, пжлст, покажите что представляет из себя машинке

[a.n.d.r.e.w]

конфигурация https://yadi.sk/i/SBghBeZDhcgCe