Como Inverter os Botões do Mouse no Delphi

Se você deseja inverter os botões do mouse em um programa Delphi, pode fazer isso facilmente utilizando a API do Windows.

Neste tutorial, você aprenderá a inverter os botões do mouse, tornando o botão direito o principal e vice-versa.

Como Funciona?

O Windows permite modificar o comportamento dos botões do mouse usando a função SwapMouseButton da API ShellAPI.

Invertendo os Botões do Mouse

  1. Abra o Delphi e crie um novo projeto.
  2. Adicione um botão (TButton) ao formulário.
  3. No evento OnClick do botão, chame a função SwapMouseButton(True).
uses
  ShellAPI; // Necessário para acessar a função

procedure TForm1.Button1Click(Sender: TObject);
begin
  SwapMouseButton(True); // Inverte os botões do mouse
  ShowMessage('Botões do mouse invertidos!');
end;

Restaurando a Configuração Padrão

Para reverter a configuração e voltar ao padrão, basta usar SwapMouseButton(False):

procedure TForm1.Button2Click(Sender: TObject);
begin
  SwapMouseButton(False); // Restaura a configuração original
  ShowMessage('Configuração do mouse restaurada.');
end;

Considerações

  • A inversão dos botões do mouse permanece ativa até que o computador seja reiniciado ou a função seja chamada novamente com False.
  • Esse recurso é útil para canhotos ou para criar aplicações que testam diferentes configurações de acessibilidade.

Conclusão

Alterar a configuração dos botões do mouse no Delphi é uma tarefa simples utilizando a função SwapMouseButton. Com apenas algumas linhas de código, você pode modificar essa configuração de forma prática.

Posts Similares