Delphi

Разработка сайтов

Наши проекты

Главная » Статьи по 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;

Dealextreme.com

Каталог интервью со спортсменами и тренерами. Велосипедный клуб.

buyblog.ru
Бандаж послеродовой anita

Библиотека статей для родителей. Консультации врача.

minibanda.ru

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

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