Home » Tipps & Tricks » System » Tastatur und Maus » Prüfen, ob die Maustasten getauscht wurden

Prüfen, ob die Maustasten getauscht wurden

Mithilfe folgender Funktion können Sie testen, ob die Maustasten getauscht wurden:

function IsMouseSwap: Boolean;
begin
  Result:=GetSystemMetrics(SM_SWAPBUTTON)0;
end;

Die Funktion gibt True zurück, falls dies der Fall ist, ansonsten wird False zurückgegeben:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if IsMouseSwap then
    Showmessage('Buttons getauscht')
  else
    Showmessage('Buttons nicht getauscht');
end;