Como inverter os botões do mouse?
Com esta dica você pode montar uma pegadinha para os seus colegas.
Crie um novo projeto e adicione dois botões.
Inverte os botões do mouse.
Deixe o Onclick do button1 conforme o código abaixo:
1
2
3
4
| procedure TForm1.Button1Click(Sender: TObject);
begin
SystemParametersInfo(SPI_SETMOUSEBUTTONSWAP, 1, nil, 0);
end; |
procedure TForm1.Button1Click(Sender: TObject);
begin
SystemParametersInfo(SPI_SETMOUSEBUTTONSWAP, 1, nil, 0);
end;
Volta ao normal os botões do mouse.
Deixe o Onclick do button2 conforme o código abaixo:
1
2
3
4
| procedure TForm1.Button2Click(Sender: TObject);
begin
SystemParametersInfo(SPI_SETMOUSEBUTTONSWAP, 0, nil, 0);
end; |
procedure TForm1.Button2Click(Sender: TObject);
begin
SystemParametersInfo(SPI_SETMOUSEBUTTONSWAP, 0, nil, 0);
end;
Lembre-se que na hora de ir clicar no botão 2, o mouse vai estar invertido
então você vai ter que clicar com o direito no botão para voltar ao normal.
-
InfusTec
-
1.973 views
- 0 comentários
- 6 de abril de 2015
Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!
Posts Relacionados - Continue Aprendendo