|
|
#1
|
||||
|
||||
Барабашка
Привет форум!
пишу САПР. барабашку заметил только на конечном этапе раз в секунду происходит самопроизвольное событие 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.только когда курсор в клиентской части формы. пробовал разные мышки и беспроводные и проводные. фигня с компьютером понятно. но чё делать? |
#2
|
||||
|
||||
Проверять изменение координат.
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#3
|
||||
|
||||
координаты не меняются
Код:
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 нет проверять на изменение координат этож устранение последствий а причина то в чем может быть? Последний раз редактировалось a.n.d.r.e.w, 01.07.2015 в 11:49. |
#4
|
||||
|
||||
Для начала переменную лучше сразу при объявлении задать нулевой, типа как 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; Я не понял Вашего вопроса, но всё же Вам на него отвечу! Последний раз редактировалось Alegun, 01.07.2015 в 14:02. |
#5
|
||||
|
||||
глюк тока на этом компьютере.
если запустить екзешник на другом компе все ок. и кстате даже на этом же компе но в терменалке все хорошо.. значит не мышка, и не драйвер, так ведь? Последний раз редактировалось a.n.d.r.e.w, 01.07.2015 в 15:49. |
#6
|
||||
|
||||
Мыша какя - usb или ps/2? Может мышиный порт и дохлым быть, если в него "на горячую" подрубаться
Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#7
|
||||
|
||||
Цитата:
А ты, для начала, проверь, получают ли окна других приложений, находящиеся под курсором, сообщение WM_MOUSEMOVE раз в секунду при находящейся в покое мыши. Хей-хей-хей! Только не ходите в мой сарай, лады?.. |
#8
|
||||
|
||||
Клавиатурномышечный приемопередатчик воткнут в усб.
Любые окна получают сообщение от мышки, даже если я вынимаю адаптер из гнезда, даже если я включаю проводную мышь, даже если я кладу ее вверх сенсором. проверить приложения сторонних разработчиков не могу. но на моих на всех. компилил и на хе7 ин а д7 таже фигня. Последний раз редактировалось a.n.d.r.e.w, 02.07.2015 в 10:36. |
#9
|
||||
|
||||
Цитата:
Опять вода льётся из ведра Уже целая портянка образовалась, а о конфигурации матчасти почти ни слова, а с этого надо было начинать, иначе так и будет гадание на крофейной гуще, пжлст, покажите что представляет из себя машинке Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#10
|
||||
|
||||
конфигурация https://yadi.sk/i/SBghBeZDhcgCe
|
#11
|
||||
|
||||
Оффтоп:
Яндекс диск для меня не доступен, модель материнки можно здесь увидеть? Я не понял Вашего вопроса, но всё же Вам на него отвечу! |