Buscar

Como trocar o cursor do mouse?

Código

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

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Periféricos
Adicionada dia: 06/06/03
Por: Felipe Monteiro
Visualizada: 2951 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009