Узнать, не переключены ли кнопки мыши

Автор: Валерий Ходоунский

function SwappedMouse: Boolean; 
begin
  Result:=False;
  if GetSystemMetrics(sm_SwapButton) = 1 then Result:=True;
end;

Функция возвратит True, если переключены (обменены назначениями левая и правая кнопки мыши), если нет, возвратит False.

Пример испольозвания:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if SwappedMouse then
    ShowMessage('Кнопки переключены')
  else
    ShowMessage('Кнопки не переключены');
end;

Просмотров: 3513

Обсудить на форуме

Copyright © 2008 - 2018 Программирование на Delphi для начинающих и не только.

Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам.

Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации.