Como animar a Ampuleta nas consultas
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
Quando faço pesquisa via SQL, como faço para mudar o apontador do Mouse para ampuleta e animá-la.
Emery
Emery
Curtidas 0
Respostas
Oscar Candido
25/08/2004
Quando vc chamar sua pesquisa tente usar o código :
Espero ter ajudado
Um abraço
Form1.Cursor := crHourGlass;
Espero ter ajudado
Um abraço
GOSTEI 0
Mkoch
25/08/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;
try
Screen.Cursor := crSQLWait;
//Sua consulta aqui.
finally
//Garantimos que o cursor volte ao normal após a operação.
Screen.Cursor := crDefault;
end;
GOSTEI 0
Emery
25/08/2004
Muito Obrigado
GOSTEI 0