Ampulheta

[Eder]

Ola..pessoal...eu já vi em alguns programas que trabalha com consulta de base de dados...que quando fica consultando a ampulheta aparece na tela e fica escrito em baixo dela: SQL

Como fazer isto?? é um componente?

muito Grato.

[Churc]

Opa

basta definir exemplo

Cursor := crSQLWait;

Query1.Open;

...

Query1.Close;

Cursor := crDefault;

Isto no Delphi 2006 mas acredito que já tenha em outras versões!

abraço

[Eder]

carinha...bza?

fiz uma vez e deu certo....e agora não está dando mais...estranho....revisei o codigo...até reinicie a maquina....não funca mais....bom se tiveres de uma outra maneira pra testar beleza...senão vou tentando por aqui.....meu delphi é 4 ainda e tinha dado certo a primeira vez....sei lá..

valeu...t+ muito grato

[Churc]

Opa

Então não fique se matando, se não existir essa ampulheta no Delphi 4 não há

jeito mesmo, o que você pode fazer é procurar na Internet por uma ampulheta

dessa e colocar como resource no seu aplicativo e utiliza-lá...

abraço

[Eder]

Churc...funcionou sim.....

FormTfilial.Query1.Close;

Cursor := crDefault;

FormTFilial.Query1.SQL.Text := Txt;

Cursor := crSQLWait;

FormTFilial.Query1.Open;

só uma probleminha......

quanto ela fica ligada atraves do:

Cursor := crSQLWait;

derepente ela de desliga, e como o relatorio é grande fica uns 5 segundos desligada.....e depois imprimi.

Não tem como colocar uma mensagem depois dela desligar...tipo um hint dentro dela...dizendo: "em instantes ira imprimir"....pra que o usuario saiba entende???

é que eu vi isto numa loja ........quando o camarada mandou fazer uma consulta....achei legal..

Se não der beleza....só pra ficar bonitinho ...hehehe.

Existe um componente free que trata a ampulheta??? se sabe algum??

valeu...muito grato

[Churc]

Opa

Eu não conheço, mas o que você pode fazer é colocar essa ampulheta no

Evento OnBeforePrint:

cursor := crSqlWait;

e depois no evento OnAfterPrint:

cursor := crDefault;

do seu relatório... pela lógica ela só iria sumir depois que o relatório fosse

impresso mas não sei exatamente como são tratados estes eventos nunca

testei eles pra ver a precisão...

abraço

[Micheus]

Eder, que componentes e banco você utiliza?

Se está utilizando os componentes da paleta BDE, verifique a propriedade SQLHourGlass da classe TSession. Quando você não adiciona o componente TSession, uma instância padrão é criada e você pode acessá-la pelo seu nome Session (está declarada na unit DBTables). Neste caso se você fosse alterar o conteúdo dela seria apenas incluir este código na criação do seu datamodule ou form principal: Session.SQLHourGlass := True;

Que me lembre, por padrão deveria já estar em True. E neste caso não seria realmente necessário trocar a ampulheta na mão.

Abraços