координаты не меняются
Код:
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 нет
проверять на изменение координат этож устранение последствий
а причина то в чем может быть?