Código
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).
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009