Alerta
Caros colegas:
estou fazendo uma rotina de atualização em um banco de dados paradox via Query como modelo
While Query Not Eof Then
Begin
Label1.Caption := ´Aguarde ...´;
--
--
Query.Next;
End;
Preciso que a mensagem aguarde fique piscando enquanto o laço não terminar.
Um Colega me disse para utilizar Timer, mas não consegui fazer funcionar.
Serei muito grato pela ajuda.
Agradeço a atenção de todos.
estou fazendo uma rotina de atualização em um banco de dados paradox via Query como modelo
While Query Not Eof Then
Begin
Label1.Caption := ´Aguarde ...´;
--
--
Query.Next;
End;
Preciso que a mensagem aguarde fique piscando enquanto o laço não terminar.
Um Colega me disse para utilizar Timer, mas não consegui fazer funcionar.
Serei muito grato pela ajuda.
Agradeço a atenção de todos.
Vanp
Curtidas 0
Respostas
Carlos Filho
24/03/2003
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:
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.
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.
GOSTEI 0
Vanp
24/03/2003
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.
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.
GOSTEI 0