Dicas - Ocultado o Mouse

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (0)  (0)

Esta dica, é uma função que tem o objetivo de ocultar o cursor do mouse em sua aplicação.

Ocultando o cursor do mouse no seu aplicativo

 

A dica deste artigo, é uma função que tem o objetivo de ocultar o cursor do mouse em sua aplicação. Mostrarei um exemplo que utiliza está função.

Construindo a aplicação

Primeiramente declare a função "MouseShowCursor" na seção Private ou Public do editor de código:

 

private

  function MouseShowCursor(const Show: boolean): boolean;

 

Esta função que irá ocultar e mostrar o cursor do mouse. Notem que ela é uma função booleana, onde ela retorna apenas valor verdadeiro ou falso. Em seguida na seção Implementation você escreve a função.

Exemplo:

 

function Tform1.MouseShowCursor(const Show: boolean): boolean;

var

  I: integer;

begin

  I := ShowCursor(LongBool(true));

  if Show then

  begin

    Result := I >= 0;

    while I < 0 do

    begin

      Result := ShowCursor(LongBool(true)) >= 0;

      Inc(I);

    end;

  end

  else

  begin

    Result := I < 0;

    while I >= 0 do

    begin

      Result := ShowCursor(LongBool(false)) < 0;

      Dec(I);

    end;

  end;

end;

 

No formulário coloque dois objetos Buttons e modifique suas propriedades captions conforme a tabela abaixo:

 

Button1

Ocultar

Button2

Mostrar

 

 

 

 

Arrume os botões no form de acordo com a figura abaixo:

 

 

No evento OnClick do botão Ocultar você irá colocar o seguinte código:

 

MouseShowCursor(false);

Button2.SetFocus;

 

E no botão mostrar você irá colocar o seguinte código:

 

MouseShowCursor(true);

Explicando o código

A função MouseShowCursor como mostramos, retorna um valor booleano, veja que seu uso é bastante fácil. Quando clicamos no botão ocultar a função é chamada retornando um valor falso, e com isso, ocultando o cursor e em seguida passando o foco para o botão mostrar. O botão mostrar funciona ao contrário, como o cursor do mouse é ocultado, só poderíamos mostrá-lo novamente acionando o botão mostrar através do teclado, pois o foco está nele. Quando apertamos a tecla de espaço ou enter com o foco no botão mostrar a função MouseShowCursor retorna um valor verdadeiro, fazendo assim retornar o cursor do mouse.

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Ficou com alguma dúvida?