Maustasten vertauschen |
|
| System | Win9x, WinNT, Win2000, WinXP, Vista, Win7 |
|---|---|
| Ab Delphi-Version | Delphi 1 |
| Letzte Änderung | 28.09.2010 |
Folgende Procedure vertauscht die Funktionen der linken und die rechten Maustaste. Für Benutzer, die die Maus mit der linken Hand steuern, kann diese Einstellung sinnvoll sein.
Übergibt man der Procedure den Parameter "True" wird die linke zur rechten Maustaste. Bei "False" wird der ursprüngliche Zustand wiederhergestellt.
procedure SwapMouseButtons(const ASwap: Boolean);
begin
if ASwap then
SystemParametersInfo(SPI_SETMOUSEBUTTONSWAP, 1, nil, 0)
else
SystemParametersInfo(SPI_SETMOUSEBUTTONSWAP, 0, nil, 0);
end;
begin
if ASwap then
SystemParametersInfo(SPI_SETMOUSEBUTTONSWAP, 1, nil, 0)
else
SystemParametersInfo(SPI_SETMOUSEBUTTONSWAP, 0, nil, 0);
end;