Alerta

Question

Caros colegas:estou fazendo uma rotina de atualiza��o em um banco de dados paradox via Query como modeloWhile Query Not Eof ThenBegin  Label1.Caption := �Aguarde ...�;  --  --  Query.Next;End;Preciso ...

Carlos Filho · Answer

A fim de evitar a cria��o de mais variaveis eu vou usar a propriedade TAG que praticamente todos os objetos da VCL possuem. Essa propriedade � apenas um recept�culo para coloca��o de um n�mero inteiro qualquer.

Ap�s configurar o intervalo do timer, no evento onTimer digite algo como:

TForm1.Timer1.Timer(Sender: TObject);
begin
        if Label1.Tag = 0 then
        begin
                Label1.Font.Color := clRed;
                Label1.Tag := 1;        
        end
        else
        begin
                Label1.Font.Color := clBlack;
                Label1.Tag := 0;        
        end;
end;

A cada passagem pelo timer, a cor do texto (ou o estilo que voc� desejar) ser� alterada assim como a propriedade TAG que ser� configurada como 1. Em passagens subsequentes a propriedade TAG ser� configurada como 0 (zero) novamente reiniciando o ciclo e as propriedades do Label.

Vanp · Answer

Caro amigo,gostaria de lhe agradecer pela prontid�o, mas durante o la�o a mensagem n�o pisca. Na cor que ela iniciar ela fica at� o termino do la�o. A� sim come�a a piscar....