Mensagem em tempo de execução...
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.
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
Curtidas 0
Respostas
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;
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
09/05/2003
depois de cada execução coloque...
Application.ProcessMessages;
Acho que vai funcionar.
Application.ProcessMessages;
Acho que vai funcionar.
GOSTEI 0
Isadora
09/05/2003
Obrigada, funcionou de primeira!
Abraços,
Isadora.
Abraços,
Isadora.
GOSTEI 0