Como animar a Ampuleta nas consultas

25/08/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


Emery

Respostas

26/08/2004

Oscar Candido

Quando vc chamar sua pesquisa tente usar o código :
   Form1.Cursor := crHourGlass;

Espero ter ajudado
Um abraço


Responder Citar

26/08/2004

Mkoch

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;


Responder Citar

26/08/2004

Emery

Muito Obrigado


Responder Citar