Датчик вращения мыши.

[Jeraldino74]

Забыл написать, что программа запускается. Но скорость мыши не меняется и в label ничего не записывается.

[Sciv]

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

[Jeraldino74]

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

     // Кнопка "выход"
procedure TForm1.Button1Click(Sender: TObject);
begin
  close;
end;

  // Процедура параметров чувствительности мыши
procedure SetMouseSens(val: Byte);
begin
  SystemParametersInfo(SPI_SETMOUSESPEED, 0, pointer(val), 0);
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  if TrackBar1.Position=1 then SetMouseSens(6);
  if TrackBar1.Position=2 then SetMouseSens(7);
  if TrackBar1.Position=3 then SetMouseSens(8);
  if TrackBar1.Position=4 then SetMouseSens(9);
  if TrackBar1.Position=5 then SetMouseSens(10);
  if TrackBar1.Position=6 then SetMouseSens(11);
  if TrackBar1.Position=7 then SetMouseSens(12);
  if TrackBar1.Position=8 then SetMouseSens(13);
  if TrackBar1.Position=9 then SetMouseSens(14);
  if TrackBar1.Position=10 then SetMouseSens(15);
end; 

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var p: string;
begin
  p:='10';
  if TrackBar1.Position>0 then p:=IntToStr(trackBar1.Position);
  Label6.Caption:='X='+IntToStr(X)+' Y='+IntToStr(Y)+' Sence='+p;
end;


  // Включаем таймер при открытии и записываются координаты курсора
procedure TForm1.FormCreate(Sender: TObject);
var cur:TPoint;
begin
  Timer1.Interval:=1;
  Windows.GetCursorPos(Cur);
  Edit4.Text:=('X='+IntToStr(cur.X)+' Y='+IntToStr(cur.Y));
end;

end.

[Sciv]

Во-первых, в лабел все прекрасно записывается, не пишется в Эдит
Во-вторых, подсказываю:

1) Значение Edit задается только при создании формы
2) Не вижу свойства TForm1.TrackBar1Change(Sender: TObject); - для чего оно нужно, сами догадаетесь, хотя я выше код писал
3) Нажмите Поиск в Дельфе, вставьте туда SetMouseSens и посмотрите, сколько раз она найдется в коде.

[Jeraldino74]

1) Да чтоб я провалился. Не записывается у меня в label ((

2)

  // Изменяем чувствительность мыши. Отсчёт идёт от "6" т.к. "1" уж слишком тормозно
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  if TrackBar1.Position=1 then SetMouseSens(6);
  if TrackBar1.Position=2 then SetMouseSens(7);
  if TrackBar1.Position=3 then SetMouseSens(8);
  if TrackBar1.Position=4 then SetMouseSens(9);
  if TrackBar1.Position=5 then SetMouseSens(10);
  if TrackBar1.Position=6 then SetMouseSens(11);
  if TrackBar1.Position=7 then SetMouseSens(12);
  if TrackBar1.Position=8 then SetMouseSens(13);
  if TrackBar1.Position=9 then SetMouseSens(14);
  if TrackBar1.Position=10 then SetMouseSens(15);
end;

3) 11 раз с учётом названия в процедуре.

[Sciv]

1) Ладно. По-поводу лабела пока забудем. По поводу Едита уточню: значения, заданные в FormCreate будут в том же состоянии, пока не закроется форма (если она основная в проекте). Менять их нужно программно из других процедур.

Заметьте вот здесь закономерность:

  if TrackBar1.Position=1 then SetMouseSens(6);
  if TrackBar1.Position=2 then SetMouseSens(7);
  if TrackBar1.Position=3 then SetMouseSens(8);
  if TrackBar1.Position=4 then SetMouseSens(9);
  if TrackBar1.Position=5 then SetMouseSens(10);
  if TrackBar1.Position=6 then SetMouseSens(11);
  if TrackBar1.Position=7 then SetMouseSens(12);
  if TrackBar1.Position=8 then SetMouseSens(13);
  if TrackBar1.Position=9 then SetMouseSens(14);
  if TrackBar1.Position=10 then SetMouseSens(15);

1->6
2->7
3->8
...
10->15

Ничего не замечаете?

2) После какого действия должна изменяться скорость мыши?

3) Уверены, что значения скорости поддержатся аж до 15? У меня на первом десятке прекрасно все работает.

4) Вот здесь Вы слишком дословно скопировали код:

  p:='10';

p должно принимать значения либо максимальной скорости (при трекбаре=0), либо значению трекбара. У Вас максималка=15. Ферштейн? Ну и плюс пункт 1 отсюда, про закономерность.

[Jeraldino74]

1) По поводу присвоения setMouseSens. Я ведь сам устанавливаю, что хочу при первом положении ползунка, чтобы было 6, а при 10 уже 15.

2) Скорость мыши меняется, когда пользователь передвигает ползунок. И как только ползунок достиг 4 позиции, скорость мышки принимает значение 9.

3) Ну я пробовал поставить и 20. Трудно адекватно определить быстрее ли она двигается, чем например даже при 9. НУ ладно, я исправил к каждой позиции ползунка от 0 до 9(всего 10)Правильно? присвоил соответствующее число скорости мыши от 1 до 10.

4) Вот здесь Вы слишком дословно скопировали код:

  p:='10';

p должно принимать значения либо максимальной скорости (при трекбаре=0), либо значению трекбара. У Вас максималка=15. Ферштейн? Ну и плюс пункт 1 отсюда, про закономерность.

4) Про 4 пункт не понял. Сделаю так. Вот как я понимаю ваш код.

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var p: string; // задаём переменной p строковое значение
begin
  p:='10'; // Присваиваем строку 10
  if TrackBar1.Position>0 then p:=IntToStr(trackBar1.Position); // если позиция ползунка отличная от нуля, то переменная p принимает строковое значение положения ползунка
  Label6.Caption:='X='+IntToStr(X)+' Y='+IntToStr(Y)+' Sence='+p; // ну это вывод сообщения
end;

[Sciv]

Поясняю, что имел в виду:

1)

if TrackBar1.Position=1 then SetMouseSens(6); и тд

эквивалентно единственной строчке:

SetMouseSens(TrackBar1.Position+5);

Стоит ли столько кода писать?

2) Простите, был неправ с этим вопросом, но дошло поздно Смотрел на TrackBar1Change как баран на ворота, а вызова процедуры не увидел. Снимаю вопрос.

3) Я вот экспериментальным путем выяснил, что скорость от 1 до 6 вполне заметно изменяется, а вот выше - либо незаметно невооруженным взглядом, либо не меняется. У Вас в программе как раз в это "выше" диапазон и попадает.

4) Я имел в виду, что раз Вы меняете скорость от 6 до 15 то должно быть p:='15';

[Jeraldino74]

Ну да всё верно. Исправил.

     // Кнопка "выход"
procedure TForm1.Button1Click(Sender: TObject);
begin
  close;
end;

  // Процедура параметров чувствительности мыши
procedure SetMouseSens(val: Byte);
begin
  SystemParametersInfo(SPI_SETMOUSESPEED, 0, pointer(val), 0);
end;

  // Изменяем чувствительность мыши. Отсчёт идёт от "6" т.к. "1" уж слишком тормозно
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
 SetMouseSens(TrackBar1.Position+1);
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var p: string;
begin
  p:='10';
  if TrackBar1.Position>0 then p:=IntToStr(trackBar1.Position);
  Label6.Caption:='X='+IntToStr(X)+' Y='+IntToStr(Y)+' Sence='+p;
end;

  // Включаем таймер при открытии и записываются координаты курсора
procedure TForm1.FormCreate(Sender: TObject);
var cur:TPoint;
begin
  Timer1.Interval:=1;
  Windows.GetCursorPos(Cur);
  Edit4.Text:=('X='+IntToStr(cur.X)+' Y='+IntToStr(cur.Y));
end;

end.

Вообщем получается, что скорость ползунка при параметрах min=0 max=9 (10 позиций), Position(0) = 1.

Всё же решил послушать вас, и сделал регулировку скорости мыши от 1 до 10.

Ну так возвращаясь к ещё одной поставленной мной задачи, запись в Label. по прежнему ничего не записывается.

++ такой вопрос, TrackBar графически может принимать как бы сказать: Тоненькая полоска и ползунок и риски. Без "белого фона" - не знаю как объяснить. Может поняли? Как убрать "белый фон". Чувствую себя неуклюже, как пятиклассник.

[Sciv]

Чувствую себя неуклюже, как пятиклассник.

Проще принтскрин выложить

запись в Label

У Вас в коде указана Label6. Проверьте, в ту ли Лаблу Вы пишете?

PS. Есть другие компоненты с трах-барами, разных стилей, форм и расцветок, в интернете полно подобного барахла - как в комплекте библиотек, так и отдельно. Можно скачать, установить и юзать.