Cursor

Delphi

05/05/2003

Amigos da lista, tenho uma consulta que demora um pouco e gostaria de
colocar o cursor tipo ampulheta durante a mesma, mas nao funciona. Como devo fazer isso? Gostaria que quando o indicador do DBgrid fosse decendo o cursor ficase como ampulheta e ao chegar no fim voltase ao normal.

Obrigado
Pedro Leonardo


Pleonardomv

Pleonardomv

Curtidas 0

Respostas

Okama

Okama

05/05/2003

<inicia consulta>
Screen.Cursor := crHourGlass;
Application.ProcessMessages;

<termina consulta>
Screen.Cursor := crDefault;
Application.ProcessMessages;


GOSTEI 0
POSTAR