Buscar

Esconder o ponteiro do mouse em terminais de atendimento

Código

//As funções para desabilitar o mouse não funciona em alguns terminais de atendimento (Que utilizam trackball). Com isso se torna mais simples e eficiente posicionar o mouse em uma área não visível da tela.

//No evento MouseMove do Form Principal insira a função "SetCursorPos(3000,3000) ";

Ex:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
      SetCursorPos(3000, 3000);
end;

 

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Forms
Adicionada dia: 09/05/07
Por: Alexsandro Mendes
Visualizada: 2433 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009