Тема: Барабашка
Показать сообщение отдельно
  #4  
Старый 01.07.2015, 13:28
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Для начала переменную лучше сразу при объявлении задать нулевой, типа как 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;
эффект пропал и на ЛКМ
Ответить с цитированием