Como trocar a seta do Mouse
Como trocar a seta do Mouse em tempo de execução???
Andre_luis_c
Curtidas 1
Respostas
Massuda
14/02/2005
O ponteiro do mouse (´seta´) é controlado pela propriedade Cursor do objeto global Screen. Para mais detalhes, dê uma olhada na ajuda do Delphi no tópico TScreen.Cursor. O exemplo seguinte muda o ponteiro do mouse de seta para ampulheta:
var SavCursor: TCursor; begin SavCursor := Screen.Cursor; Screen.Cursor := crHourGlass; try // algum processo longo finally Screen.Cursor := SavCursor; end; // ...
GOSTEI 0
Dcpleal
14/02/2005
Bom dia a todos,
o unico problema disse é que assim não funciona:
Screen.Cursor := crHourGlass
o correto é colocar assim :
Screen.Cursor[crHourGlass]
mas o mesmo assim num consegui troca-lo, alguem saberia como?
o unico problema disse é que assim não funciona:
Screen.Cursor := crHourGlass
o correto é colocar assim :
Screen.Cursor[crHourGlass]
mas o mesmo assim num consegui troca-lo, alguem saberia como?
GOSTEI 0
Adriano Santos
14/02/2005
Screen.Cursor := crHourGlass
Como assim não funciona? Funciona sim, uso constantemente.
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).
Testei e funciona perfeitamente. Tirei isso do arquivo de dicas DtDelphi27.
GOSTEI 0
Gladstone Matos
14/02/2005
bom dia people
Segue um trecho de código no Delphi:
abraços
Segue um trecho de código no Delphi:
screen.cursor := crHourglass; // execute o seu processamento; Se for um loop o uso de ProcessMessages vai evitar que a tela 'trave': while true do application.ProcessMessages; //do something end; screen.cursor := crDefault;
abraços
GOSTEI 0