Fórum Mensagem em tempo de execução... #177485
26/08/2003
0
Bom dia a todos vocês,
Como mostrar uma mensagem no objeto TLabel em tempo de execução?
Na minha aplicação, durante geração de cobrança, uso um TLabel no pé do formulário para informar ao usuário a quantas anda a rotina:
LblRotina.Caption := ´Processa geração de cobrança !´;
LblRotina.Caption := ´Aguarde... Gerando cobrança !´;
LblRotina.Caption := ´Pronto !´;
Acontece que as danadinhas não aparecem em tempo de execução, com excecão da última, que aparece no final da execução da rotina ´Pronto´, as outras simplesmente não aparecem.
Obrigada.
Isadora.
Como mostrar uma mensagem no objeto TLabel em tempo de execução?
Na minha aplicação, durante geração de cobrança, uso um TLabel no pé do formulário para informar ao usuário a quantas anda a rotina:
LblRotina.Caption := ´Processa geração de cobrança !´;
LblRotina.Caption := ´Aguarde... Gerando cobrança !´;
LblRotina.Caption := ´Pronto !´;
Acontece que as danadinhas não aparecem em tempo de execução, com excecão da última, que aparece no final da execução da rotina ´Pronto´, as outras simplesmente não aparecem.
Obrigada.
Isadora.
Isadora
Curtir tópico
+ 0
Responder
Posts
26/08/2003
Vinicius2k
Bom dia Isadora,
LblRotina.Caption := ´Processa geração de cobrança !´;
Form1.update;
...
LblRotina.Caption := ´Aguarde... Gerando cobrança !´;
Form1.update;
...
LblRotina.Caption := ´Pronto !´;
Form1.update;
LblRotina.Caption := ´Processa geração de cobrança !´;
Form1.update;
...
LblRotina.Caption := ´Aguarde... Gerando cobrança !´;
Form1.update;
...
LblRotina.Caption := ´Pronto !´;
Form1.update;
Responder
Gostei + 0
26/08/2003
Afarias
Durante o processo o programa não permite q o Windows realize as mensagems ´acumuladas´ (como repintura da tela) -- vc tem q explicitamente, ´pedir´ para q isso ocorra -- utilizando o método ProcessMessages do objeto Application. Ex:
{...}
LblRotina.Caption := ´Processa geração de cobrança !´;
Application.ProcessMessages;
{...}
while not {condição} do
begin
LblRotina.Caption := ´Aguarde... Gerando cobrança !´;
Application.ProcessMessages;
{...}
end;
LblRotina.Caption := ´Pronto !´;
T+
{...}
LblRotina.Caption := ´Processa geração de cobrança !´;
Application.ProcessMessages;
{...}
while not {condição} do
begin
LblRotina.Caption := ´Aguarde... Gerando cobrança !´;
Application.ProcessMessages;
{...}
end;
LblRotina.Caption := ´Pronto !´;
T+
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)