Mensagem de Processamento

[asimoes]

Amigos,

Alguém teria alguma função para exibir mensagens durante um processamento:

Por exemplo:

Durante uma atualização de tabela:

Do While !Eof()
Informa('Em Processamento, registro: '+str(Recno())
DbSkip()
EndDo


[]´s

[esbasso]

oMsg := HAviso():New()
oMsg:Activate( .t.,, 1 )
oMsg:oLabel1:caption := Processando Dados, aguarde ..."
Do While !Eof()
oMsg:oLabel1:caption := 'Em Processamento, registro: '+str(Recno())
DbSkip()
EndDo
omsg:close()


CLASS HAVISO FROM Hdialog
METHOD New(cmsg)
ENDCLASS

METHOD New( cmsg ) CLASS haviso

Local oLabel1, oProgressbar1

INIT DIALOG Self TITLE " Mensagem ..." ;
AT 234,203 SIZE 400,38 ;
COLOR 16777215 ;
FONT HFont():Add( 'Verdana',0,-13,400,,,) NOEXIT ;
STYLE WS_POPUP+WS_CAPTION+DS_CENTER

@ 2,8 SAY oLabel1 CAPTION cmsg TRANSPARENT SIZE 424,27 ;
STYLE SS_CENTER ;
FONT HFont():Add( 'Arial',0,-16,400,,,)

RETURN Self

[asimoes]

Olá Luis,

Obrigadão pela dica.

[]´s

[sygecom]

Em anexo tem mais um exemplo: