Подписаться на RSS рассылку
Главная » Статьи по Delphi » Мышь и курсор » Узнать, не переключены ли кнопки мыши

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

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

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;

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

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


Имя *:
Email:


Код *:

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

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

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

Хостинг от uCoz

Автор проекта: Борисов Сергей

e-mail: save-x@yandex.ru

Связь с администрацией сайта