vai a dica dtdelphi
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).
----- Original Message -----
From: WILLER
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, August 23, 2006 1:14 PM
Subject: [delphi-br] Mudar o cursor do mouse
Alguém sabe como modificar a seta(cursor) do mouse, colocando um
personalizado?
Tentei criar um objeto TCursor, mas não consegui.
Qualquer dica de como fazer isso eu agradeço.
[]s.
[As partes desta mensagem que não continham texto foram removidas]
------------------------------------------------------------------------------
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.1.405 / Virus Database: 268.11.5/425 - Release Date: 22/08/2006
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
