Buscar por:

Funções úteis para trocar o status do ponteiro do mouse.

Código

{Estas funções permitem que vc alterne rapidamente o ponteiro do mouse quando precisar fazer algum processamento, para uma ampulheta ou voltar o ponteiro para o status normal.}

Procedure WaitMouse;

begin

       Screen.Cursor := crHourglass;

end;

Procedure ResetMouse;

begin

       Screen.Cursor := crDefault;

end;

{Quanto precisar alternar o ponteiro em seus programas, é só chamar assim:}

Try

    WaitMouse;

    --------

    // Seu processamento aqui.

    -------

Finally

    ResetMouse;

    end;