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;