segunda-feira, 23 de novembro de 2009

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).

Nenhum comentário:

Postar um comentário