Array
(
)

Como animar a Ampuleta nas consultas

Emery
   - 25 ago 2004

Estou usando Delphi 7 + DbExpress + FB 1.5

Quando faço pesquisa via SQL, como faço para mudar o apontador do Mouse para ampuleta e animá-la.


Emery


Oscar Candido
   - 26 ago 2004

Quando vc chamar sua pesquisa tente usar o código :
#Código


Form1.Cursor := crHourGlass;

Espero ter ajudado
Um abraço


Mkoch
   - 26 ago 2004

Cuide apenas, se ocorrer algum erro para o cursor voltar ao Normal.
try
Screen.Cursor := crSQLWait;
//Sua consulta aqui.
finally
//Garantimos que o cursor volte ao normal após a operação.
Screen.Cursor := crDefault;
end;


Emery
   - 26 ago 2004

Muito Obrigado