Valeu. Funcuinou perfeitamente. Eu tinha tentado algumas coisas já, mas não tinha conseguido.
----- Original Message ----- From: Logos To: delphi-br@yahoogrupos.com.br Sent: Wednesday, August 23, 2006 1:47 PM Subject: Re: [delphi-br] Mudar o cursor do mouse 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] __________ Informação do NOD32 1.1683 (20060728) __________ Esta mensagem foi verificada pelo NOD32 Sistema Antivírus http://www.nod32.com.br [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