alisson_delphi escreveu:
>
> Eu tenho no meu formulário u TTimer e um TLabel.....
> eu to querendo fazer uma procedure que eu coloque 3 numeros de
> telefone e ele fica piscando anternadamente.... mais esse laço naum
> pode parar......
> Alguém já fez algo parecido ou sabe como fazer.... pois estou
> necessitando.....
>
>
Coloque 03 TTimer com Enabled:=False, no OnCreate do Form
Timer1.Enabled:=True;
O primeiro se auto desabilita e coloca o segundo para funcionar que se
auto desabilita e coloca o próximo e o último aciona o primeiro
novamente em um loop infinito no tempo que você quiser.
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption:='(99) 9999-9999';
Timer1.Enabled:=False;
Timer2.Enabled:=True;
end;
procedure TForm1.Timer2Timer(Sender: TObject);
begin
Label1.Caption:='(88) 8888-8888';
Timer2.Enabled:=False;
Timer3.Enabled:=True;
end;
procedure TForm1.Timer3Timer(Sender: TObject);
begin
Label1.Caption:='(77) 7777-7777';
Timer3.Enabled:=False;
Timer1.Enabled:=True;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Enabled:=True;
end;
--
----------------------------------
Adilson Nunes - tetraetila®
?
õ¿õ¬
(¬)
Linux Registered User # 272492
----------------------------------
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
