Fórum Timer #229236
01/05/2004
0
Estou tentando exibir um label (lbMensagem.Visible:= True) por +/-3 segundos e em seguida esconder (lbMensagem.Visible:= False).
Criei um Timer e no evento OnTimer inseri lbMensagem.Visible:= False.
Estou chamando o Timer de uma procedure, após exibir o label.
Não funciona. O que estou fazendo de errrao?
{}
Fabiana
Criei um Timer e no evento OnTimer inseri lbMensagem.Visible:= False.
Estou chamando o Timer de uma procedure, após exibir o label.
Não funciona. O que estou fazendo de errrao?
{}
Fabiana
Fab
Curtir tópico
+ 0
Responder
Posts
01/05/2004
Adilsond
Se o que deseja é fazer o seu label piscar a cada 3 segundos, então em interval do seu timer coloque 3000 e em sua procedure voce abilita o timer com:
MeuTimer.Enabled := True;
E no evento OnTimer de seu timer coloque apenas:
lbMensagem.Visible := not lbMensagem.Visible;
Application.ProcessMessages;
MeuTimer.Enabled := True;
E no evento OnTimer de seu timer coloque apenas:
lbMensagem.Visible := not lbMensagem.Visible;
Application.ProcessMessages;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)