Prüfen, ob die Maustasten getauscht wurden |
|
| System | Win9x, WinNT, Win2000, WinXP, Vista, Win7 |
|---|---|
| Ab Delphi-Version | Delphi 1 |
| Letzte Änderung | 28.09.2010 |
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;