Mouse - inverter botoes e duplo clique

Top  Previous  Next

Como inverter os botões do mouse

--------------------------------

Coloque no uses: Windows

 

{ Para inverter: }

SwapMouseButton(true);

 

{ Para voltar ao normal: }

SwapMouseButton(false);

 

==========

Como obter/definir o tempo máximo do duplo-click do mouse?

 

Coloque no uses: Windows

 

{ - Coloque um botão no form e escreva seu OnClick como

    abaixo: }

 

procedure TForm1.Button6Click(Sender: TObject);

var

  Tempo: Cardinal;

begin

  { Obtém }

  Tempo := GetDoubleClickTime;

  ShowMessage(IntToStr(Tempo) + ' milisegundos');

 

  { Define }

  SetDoubleClickTime(300);

end;

 

Observações:

 

Um duplo-click nada mais é que dois cliques consecutivos 

(óbvio). Porém estes dois cliques podem ser interpretados de 

duas formas: dois cliques isolados ou um duplo-click. Para o 

Windows resolver esta situação, ele usa o que chamo de "tempo 

máximo do duplo-click". Se o intervalo entre o primeiro e o 

segundo click for menor ou igual a esse tempo, então houve 

duplo-click. E você pode alterar este tempo. O padrão do 

Windows é 500 milisegundos. Um tempo muito curto (ex: 100), faz 

com que o duplo-click tenha que ser muito rápido (quase 

impossível), enquanto muito longo (ex: 2000) faz com que o 

Windows interprete dois clicks isolados como duplo-click.