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

[Stilet]

SPI_SETMOUSESPEED

Что это? Всегда думал что нужно так:

var a:array[1..3] of integer;
begin
 a[1]:=Порог 1;
 a[2]:=Порог 2;
 a[3]:=Скорость курсора;
 SystemParametersInfo(SPI_SETMOUSE, 0, @a, 0);
end;

[Sciv]

А я сейчас код топикстартера проверял на трек-баре - без порогов прекрасно работает.

[Jeraldino74]

Получилось. Только объясните мне, как переменной присвоить позицию ползунка? Чтобы код компактнее получился.
А ещё если скажите, чтобы где-нибудь отображалось значение скорости, то ваще супер )

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  if TrackBar1.Position=1 then SetMouseSens(1);
  if TrackBar1.Position=20 then SetMouseSens(20);

end;

[Stilet]

как переменной присвоить позицию ползунка?

Зачем??? Компактнее не будет. TrackBar1.Position считывай где нужно и не делай кучу лишних переменок.

[Jeraldino74]

У меня TrackBar состоит из 20 позиций. Каждую позицию описывать?

Пока сидел ждал ответа, соорудил:

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;

А значение TrackBar 1..20 куда можно и как показать? Чтобы пользователь видел, что у него сейчас Sens3. Это типо добавить

if TrackBar1.Position=20 then SetMouseSens(20) and Label1.Caption=2231;

????

[Sciv]

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);
  Label1.Caption:='X='+IntToStr(X)+' Y='+IntToStr(Y)+' Sence='+p;
end;

как переменной присвоить позицию ползунка? Чтобы код компактнее получился.

Так я ж Вам выше и так самый компактный вариант привел, выбросите все эти If... then

[Jeraldino74]

Чёт не работает последний код.

[Sciv]

Я его для label писал, переделай под свои компоненты.

[Jeraldino74]

Я понял. Тоже сделал под Label6.Caption. Но у меня что-то не работает.

[Sciv]

А что выдает? Ошибку или другие какие страшилки показывает?