Fórum Mensagem em tempo de execução... #158978

09/05/2003

0

Bom dia amigos,

Em uma rotina de geração de valores de condomínio tenho três while e gostaria de inserir tres mensagens no formulário que executa a rotina.

Para tanto inseri no formulário um Label e no código, antes de entrar em cada um dos três while eu defino a mensagem:

[color=red:4b5e8ff388]LabelMensagem := ´Aguarde... excluindo registros invádos!´[/color:4b5e8ff388]

[color=red:4b5e8ff388]LabelMensagem := ´Aguarde... gerando cobrança do mês!´[/color:4b5e8ff388]

[color=red:4b5e8ff388]LabelMensagem := ´Aguarde... Buscando ocorrências de alerações!´[/color:4b5e8ff388]

e por fim:

[color=red:4b5e8ff388]LabelMensagem := ´Pronto !´[/color:4b5e8ff388]

O problema é que as mensagens simplesmente não são mostradas, com exeção da última (Pronto!). Porque isso ocorre? Já tentei um monte de artifícios, inclusive criando uma função à parte onde coloquei as mensagens e uma chamada para a função antes de início de cada while, só que nada funciona.

Alguém tem alguma idéia de como fazer uma coisa tão simples funcionar?

Obrigada pelo suporte,
[img:4b5e8ff388]http://www.ona.hpg.com.br/ona/IsadoraOzeiaOna_10.jpg[/img:4b5e8ff388]
Isadora.


Isadora

Isadora

Responder

Posts

09/05/2003

Joilson_gouveia

Isadora,

Experimente dar um refresh na label após cada alteração de mensagem:

LabelMensagem := ´Aguarde... excluindo registros invádos!´
LabelMensagem.Refresh;

LabelMensagem := ´Aguarde... gerando cobrança do mês!´
LabelMensagem.Refresh;

LabelMensagem := ´Aguarde... Buscando ocorrências de alerações!´
LabelMensagem.Refresh;


Responder

Gostei + 0

09/05/2003

Rosivaldo

depois de cada execução coloque...
Application.ProcessMessages;

Acho que vai funcionar.


Responder

Gostei + 0

09/05/2003

Isadora

Obrigada, funcionou de primeira!
Abraços,
[img:2ace4036ec]http://www.ona.hpg.com.br/ona/IsadoraOzeiaOna_4.jpg[/img:2ace4036ec]
Isadora.


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar