Mensagem em tempo de execução...

Delphi

26/08/2003

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.


Isadora

Isadora

Curtidas 0

Respostas

Vinicius2k

Vinicius2k

26/08/2003

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;


GOSTEI 0
Afarias

Afarias

26/08/2003

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 do
begin
LblRotina.Caption := ´Aguarde... Gerando cobrança !´;
Application.ProcessMessages;
{...}
end;

LblRotina.Caption := ´Pronto !´;



T+


GOSTEI 0
POSTAR