Alterando o Cursor do Mouse no Delphi

Se você precisa indicar visualmente que um processo está em execução, uma boa prática é alterar o cursor do mouse para uma ampulheta. No Delphi, isso é muito simples e pode ser feito com o comando:

Screen.Cursor := crHourGlass;

Após a finalização do processo, é importante restaurar o cursor para a seta padrão:

Screen.Cursor := crDefault;

Exemplo Completo

Aqui está um exemplo prático dentro de um evento de clique de um botão:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Screen.Cursor := crHourGlass; // Altera para ampulheta

  try
    Sleep(3000); // Simula um processo demorado (3 segundos)
  finally
    Screen.Cursor := crDefault; // Retorna para o cursor padrão
  end;
end;

Dicas Importantes

• Sempre utilize try...finally para garantir que o cursor volte ao estado normal, mesmo em caso de erro.
• Utilize crHourGlass apenas durante processos demorados para melhorar a experiência do usuário.
• Evite deixar o cursor travado na ampulheta, pois isso pode confundir o usuário.