Exibir a ampulheta nas consultas

Question

Pessoal eu to migrando um sistema de BDE para DBExpress e depois de migrado meu cliente reclamou que nas consultas n�o aparece mais aquela ampulheta que aparecia no BDE.Algu�m sabe como fa�o para colo...

Sremulador · Answer

[quote:283d52d12c]Screen.Cursor:= crHourGlass; RefreshTabela.Open; Screen.Cursor:= crDefault;Refresh[/quote:283d52d12c]......

Ipc$ · Answer

No dbExpress existe a propriedade SQLHourGlass de TSQLConnection.Ela n�o funciona ?...

Antoniologica · Answer

Essa propriedade surpreendentemente n�o funciona...

Rjun · Answer

[code:1:59a57d7062]Screen.Cursor:= crHourGlass; try  // Coloque aqui a sua consultafinally  Screen.Cursor:= crDefault; end;[/code:1:59a57d7062]Por que o c�digo acima n�o serve pra voc�?[/code]...

Antoniologica · Answer

O c�digo � invi�vel pois eu teria que fazer isto nas mais de 300 chamadas de abertura de query�s...

Antoniologica · Answer

o que antes a BDE fazia de maneira autom�tica...

Isabelct · Answer

Uma outra alternativa � voc� criar uma fun��o chamada �AbreConsulta�, onde voc� alteraria o tipo do cursor, abriria sua consulta, e devolveria o cursor anterior.

procedure AbreConsulta(Query: TSQLQuery);
var
  CursorAnterior: TCursor;
begin
  CursorAnterior := Screen.Cursor;
  Screen.Cursor:= crHourGlass; 
  try 
    Query.Open;
  finally 
    Screen.Cursor:= CursorAnterior; 
  end; 
end;

Seria necess�rio alterar todas as chamadas, mas caso voc� precisasse fazer uma nova altera��o na abertura de consultas (por exemplo, exibir um formul�rio de �Aguarde...�, precisaria fazer isso em um �nico local).

Yale.leite · Answer

Esta propriedade SQLHourGlass s� funciona durante a execu��o do m�todo Open do TSQLConnection....

F�rum Exibir a ampulheta nas consultas #284867