Processamento de algum evento no sistema!

Delphi

19/01/2004

Como faço para que todas as vezes que a minha aplicação for processar: criação de relatório, salvamento de informações, filtro de dados para aparecer em DBGrid etc. o ponteiro do mouse trasnforme-se em uma ampulheta, como acontece no Windows por exemplo: todas as vezes que vamos efetuar algum evento, o cursor transforma-se em uma ampulheta. Alguém me ajude, por favor!


Enivaldo
---------------------------------------------
´A única coisa permanente no mundo é a mudança´

[b][color=red]Título editado pelo Moderador (AZ) - Removido: ´Urgente!´
Por favor, leia as regras o Fórum.[/color][/b]


N_valdo

N_valdo

Curtidas 0

Respostas

Motta

Motta

19/01/2004

procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
//simula processo
// dentro de try finally pois se der
// alguma m... o ucrsor fica normal
Screen.Cursor := crHourGlass;
try
for i:=0 to 1000 do
Inc(j);
finally
Screen.Cursor := crDefault;
end;
end;


GOSTEI 0
N_valdo

N_valdo

19/01/2004

Não há uma forma de criar um comando global, onde, todas as vezes que o sistema for filtrar, abrir ou fazer qualquer processamento no Banco de dados da Aplicação o ponteiro do mouse virar uma ampulheta?


Enivaldo
------------------------------------
´A única coisa permanente no mundo é a mudança´


GOSTEI 0
Motta

Motta

19/01/2004

Os proprios componentes de acesso a db do delphi já fazem isto.


GOSTEI 0
N_valdo

N_valdo

19/01/2004

Amigos,

No meu sistema isso não acontece, pois, o ponteiro do mouse sempre é o mesmo, para qualquer procedimento realizado no Delphi.

O que devo fazer para que isto aconteça?

Enivaldo
-------------------------------------------------
´A única coisa permanente no mundo é a mudança´


GOSTEI 0
POSTAR