Читать книгу Delphi. Трюки и эффекты - Александр Чиртик - Страница 37

Как известно, операционная система Windows дает возможность работать за компьютером широкому кругу людей. Со стороны разработчиков было бы глупо не предусмотреть возможность простой адаптации манипулятора «мышь» к правше или левше. К тому же мышь адаптировать к таким различиям намного проще: конструкцию изменять не надо, достаточно программно поменять функции кнопок мыши.

Как поменять функции левой и правой кнопок мыши, демонстрирует листинг 3.7.

Листинг 3.7. Изменение назначения кнопок мыши

procedure TForm1.Button1Click(Sender: TObject);

begin

//Меняем местами функции левой и правой кнопок мыши

SwapMouseButton(True);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

//Восстанавливаем функции кнопок мыши

SwapMouseButton(False);

end;

В листинге 3.7 не учитывается тот факт, что инверсия мыши уже может быть установлена при запуске программы (например, если за компьютером работает левша). Чтобы точно знать, была ли ранее применена инверсия к кнопкам мыши, можно использовать значение, возвращаемое функцией SwapMouseButton. Если это значение отлично от нуля, то ранее функции кнопок мыши были инвертированы.