Como Alterar o Ponteiro do Mouse em Delphi em tempo de Execução

Olá, Bom Dia à Todos...

Hoje vai uma dica rápida de como alterar o ponteiro do mouse em tempo de execução no Delphi, dica fácil e muito útil.

Então, mãos a obra...

No início do bloco de código que deseja alterar o modo de exibição do ponteiro do mouse, coloque o seguinte  código:

   Screen.Cursor := crSQLWait; //Muda o cursor para a ampulheta de SQL...

   {
   AQUI FICA O SEU BLOCO DE CÓDIGO...
   }

   Screen.Cursor := crDefault; //Volta o cursor para o ponteiro padrão...

    OBS.: Para fins de compatibilidade, esta dica foi escrita usando Delphi XE5. 

    DICA.: Para saber os nomes de cursores disponíveis, basta ir na propriedade "Cursor" de qualquer componente do Form Delphi.


Esta foi a dica de hoje, se for útil, comentem.

Se você tem uma dica interessante, preencha o Formulário de contato do lado direito da página e nos envie.

Atenciosamente
Dica Chave.