Timer

Delphi

01/05/2004

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


Fab

Fab

Curtidas 0

Respostas

Adilsond

Adilsond

01/05/2004

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;


GOSTEI 0
POSTAR