|
#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.только когда курсор в клиентской части формы. пробовал разные мышки и беспроводные и проводные. фигня с компьютером понятно. но чё делать? |