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

[Sciv]

А это идея.

Jeraldino74, я Вам даже больше скажу - точку надо не от фонаря брать, а просто центр экрана за начало координат считать. Соответственно если конечная координата мыши = центр экрана, то угол=180, если конец=начало -> угол=0 либо 360. Остальные углы - по двум отрезкам рассчитывать.

[Jeraldino74]

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

[Sciv]

Уж простите, что сплавим вам мозг.

да ничего, тут и хуже бывает.

надеюсь, помогли?

[Stilet]

про принцип её действия

У нее простой принцип: Шарик вращает два колесика, оси которых перпендикулярны друг к другу. На каждом колесике стоят датчики, которые всего лишь подают на выход из мышки в какую сторону вращается колесо (возможно еще скорость, но врядли). А уже координаты вычисляет сам драйвер мышки, передавая их операционке - именно от них и нужно отталкиваться.
Ты как получаешь данные с мышки? Используешь ли прерывания? Или проект действительно на Делфи?

[Jeraldino74]

Да. Щас буду реализовывать, потом скину на форум, если не забуду.

[xoodoo]

Нужно как-то обратиться к счётчику импульсов ? Правильно?

Ты видать точно с дуба рухнул)

Прежде чем рассуждать о столь "высоких материях" нехило было бы сразу сказать кратко, точно и вменяемо - я, мол, изволю получить прямой программный доступ к мышиному контроллеру, и изволю я его получить, мол, в операционной среде реального времени)

[Jeraldino74]

Помогите разобраться. Хочу чтобы за счёт ComboBox менялась скорость движения курсора.

procedure SetMouseSens(val: Byte);
begin
  SystemParametersInfo(SPI_SETMOUSESPEED, 0, pointer(val), 0);

end;

procedure TForm1.ComboBox1Change(Sender: TObject);
 begin
  ComboBox1.DropDownCount:=3;
If ComboBox1.ItemIndex=0 then SetMouseSens(8);

И ещё такой вопрос. DropDownCount:=3 работает после того, как я повторно нажму на ComboBox. А первоначально, разворачивается полностью.

[Sciv]

А нафига Вам для скорости комбо? Используйте TrackBar - бегунком проще регулировать скорость. Через свойство Position получаете текущее положение и передаете в SetMouseSens.

Получится примерно так:

procedure TForm1.TrackBar1Change(Sender: TObject);

procedure SetMouseSens(val: Byte);
begin
  SystemParametersInfo(SPI_SETMOUSESPEED, 0, pointer(val), 0);

end;

begin
  If TrackBar1.Position>0 then
    SetMouseSens(TrackBar1.Position)
  else
    SetMouseSens(10);
end;

[Jeraldino74]

А вот хочется Ну и всё равно, как в TrackBar внести изменение сенса мышки?

И второй вопрос в силе, так для новенького, в инете не нашел про это.

[Sciv]

И второй вопрос в силе,

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