Mensagem em tempo de execução...

Delphi

09/05/2003

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,
Isadora.


Isadora

Isadora

Curtidas 0

Respostas

Joilson_gouveia

Joilson_gouveia

09/05/2003

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;


GOSTEI 0
Rosivaldo

Rosivaldo

09/05/2003

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

Acho que vai funcionar.


GOSTEI 0
Isadora

Isadora

09/05/2003

Obrigada, funcionou de primeira!
Abraços,
Isadora.


GOSTEI 0
POSTAR