Como trocar a seta do Mouse

Screen.Cursor := crHourGlass

330 - Como Trocar o Cursor do Mouse Existem vários cursores no Delphi (crDefault é o cursor padrão, crHourGlass é a ampulheta, crHandPoint é a ´mãozinha´, etc). Para alterá-lo, basta escolher um na propriedade Cursor do componente em que você quer mudar o cursor (troque no form para trocar o do form inteiro). Mas, se você quiser colocar um cursor diferente, siga os procedimentos abaixo: Na seção interface da unit que contém o form, coloque as seguintes linhas: const crSeuCursor = 1; // Tem que ser um valor maior que 0 (zero) No evento OnCreate do form, digite as seguintes linhas: Screen.Cursors [crSeuCursor] := LoadCursorFromFile (´Cursor.ani´); // O cursor pode ser dos tipos comum (*.cur) ou animado (*.ani) // Lembre-se: o arquivo tem que estar na mesma pasta do programa // ou digite o nome do caminho dele. Na hora de trocar de cursor, use o seguinte comando: Objeto.Cursor := crSeuCursor; onde Objeto é o nome do objeto que vai ter o cursor alterado (o form, por exemplo).