Como inverter os botões do mouse? – Show Delphi

DICAS

Visite a biblioteca de dicas da comunidade.

Saiba mais

ARTIGOS

Abordagens detalhadas sobre assuntos diversos.

Saiba mais

INICIANTES

Aprenda a programar de um modo simples e fácil.

Saiba mais

DOWNLOADS

Acesse os materiais exclusivos aos membros.

Saiba mais
voltar

PARA QUEM GOSTA DE DELPHI

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;

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;

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.

Facebook Comments

Posts Relacionados

  • Administrador
  • 401 views
  • 0 comentários
  • 6 de abril de 2015

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Ir ao topo


© 2016 Infus Soluções em Tecnologia - Todos os Direitos Reservados