Fórum Cursor Estilo Ampulheta... #335316
27/12/2006
0
Galera Gostaria de Por no meu software quando eu executar qualquer instrução SQL, u cursor estilo ampulheta, quando terminar voltar ao normal novamente. atualmente faço assim:
Screen.cursor := crHouGlass;
Adoquery1.open;
screen.cursor := crDefault;
Resultado tenho centenas de linhas só pra isso.
Gostaria de fazer este código para todos os objetos ado. igual ao Zeos q tem uma propriedade par ahabilitar este tipo de cursor.
Uso o ADOconnection e objetos adoquery e adotable.
Screen.cursor := crHouGlass;
Adoquery1.open;
screen.cursor := crDefault;
Resultado tenho centenas de linhas só pra isso.
Gostaria de fazer este código para todos os objetos ado. igual ao Zeos q tem uma propriedade par ahabilitar este tipo de cursor.
Uso o ADOconnection e objetos adoquery e adotable.
Cabal
Curtir tópico
+ 0
Responder
Posts
27/12/2006
Tnaires
Olá
Você pode usar os eventos OnWillExecute e OnExecuteComplete:
- no OnWillExecute, você coloca Screen.Cursor := crHouGlass;
- no OnExecuteComplete, você coloca Screen.Cursor := crDefault;
Abraços
Você pode usar os eventos OnWillExecute e OnExecuteComplete:
- no OnWillExecute, você coloca Screen.Cursor := crHouGlass;
- no OnExecuteComplete, você coloca Screen.Cursor := crDefault;
Abraços
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)