Mensagem que pisca
Caros colegas:
estou fazendo uma rotina de atualização em um banco de dados paradox via Query como no modelo a seguir:
[color=blue:2f9d8a614c]While Query Not Eof Then
Begin
Label1.Caption := ´Aguarde ...´;
--
--
Query.Next;
End; [/color:2f9d8a614c]
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.
Voltar ao Topo
estou fazendo uma rotina de atualização em um banco de dados paradox via Query como no modelo a seguir:
[color=blue:2f9d8a614c]While Query Not Eof Then
Begin
Label1.Caption := ´Aguarde ...´;
--
--
Query.Next;
End; [/color:2f9d8a614c]
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.
Voltar ao Topo
Vanp
Curtidas 0
Respostas
Anonymous
24/03/2003
crie uma procedure e coloque um Timer
procedure TForm1.HAbilitar;
begin
Label1.Visible := not Label1.Visible;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
HAbilitar;
end;
Espero ter Ajudado.:
procedure TForm1.HAbilitar;
begin
Label1.Visible := not Label1.Visible;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
HAbilitar;
end;
Espero ter Ajudado.:
GOSTEI 0
Anonymous
24/03/2003
cara não sei se dá certo mas tentou fazer assim ?
While Query Not Eof Then
Begin
Label1.Caption := ´Aguarde ...´;
Label1.visible:= true;
--
--
Query.Next;
Label1.visible:= false;
End;
Assim a cada registro que corre da query ele dá impressão que estará piscando !! lembrando que eu nem testei , não sei o resultado que pode dar !!!
OU tente com o componte timer a cada x segunsdos vc ativa e desativa a propriedade visible do label. ! enquanto não final da query.
While Query Not Eof Then
Begin
Label1.Caption := ´Aguarde ...´;
Label1.visible:= true;
--
--
Query.Next;
Label1.visible:= false;
End;
Assim a cada registro que corre da query ele dá impressão que estará piscando !! lembrando que eu nem testei , não sei o resultado que pode dar !!!
OU tente com o componte timer a cada x segunsdos vc ativa e desativa a propriedade visible do label. ! enquanto não final da query.
GOSTEI 0
Belo
24/03/2003
Caros colegas:
estou fazendo uma rotina de atualização em um banco de dados paradox via Query como no modelo a seguir:
[color=blue:a4ab3a4505]While Query Not Eof Then
Begin
Label1.Caption := ´Aguarde ...´;
--
--
Query.Next;
End; [/color:a4ab3a4505]
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.
Voltar ao Topo
Coloque um componente TTimer e no seu evento:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Visible := not Label1.Visible;
end;
No inicio do laço ligue o TTimer(enable) e no final(disable)
GOSTEI 0
Anonymous
24/03/2003
cara não sei se dá certo mas tentou fazer assim ?
While Query Not Eof Then
Begin
Label1.Caption := ´Aguarde ...´;
Label1.visible:= true;
--
--
Query.Next;
Label1.visible:= false;
End;
Assim a cada registro que corre da query ele dá impressão que estará piscando !! lembrando que eu nem testei , não sei o resultado que pode dar !!!
OU tente com o componte timer a cada x segunsdos vc ativa e desativa a propriedade visible do label. ! enquanto não final da query.
While Query Not Eof Then
Begin
Label1.Caption := ´Aguarde ...´;
Label1.visible:= true;
--
--
Query.Next;
Label1.visible:= false;
End;
Assim a cada registro que corre da query ele dá impressão que estará piscando !! lembrando que eu nem testei , não sei o resultado que pode dar !!!
OU tente com o componte timer a cada x segunsdos vc ativa e desativa a propriedade visible do label. ! enquanto não final da query.
GOSTEI 0
Adilsond
24/03/2003
Faltou os colegas avisarem que voce deve informar ao windows para processar as mensagens.
Label1.Caption := ´Aguarde ...´;
Label1.visible:= True;
While Query Not Eof Then
Begin
--
--
Query.Next;
Label1.visible:= not Label1.visible;
Application.ProcessMessages;
End;
Label1.Caption := ´Aguarde ...´;
Label1.visible:= True;
While Query Not Eof Then
Begin
--
--
Query.Next;
Label1.visible:= not Label1.visible;
Application.ProcessMessages;
End;
GOSTEI 0