COmo fazer efeito Matrix com Timer?

Delphi

14/07/2004

Tipow como eu fassu pra fazer akeli efeito q tem nu Matrix cum u Timer(as letrinhas ficam caindu) ???

Pur favor me ajudem !!!...
:cry:




---------[color=blue:fb66e2c6f0]
:arrow: Título editado pelo moderador Nildo.
:arrow: Não utilize títulos que estejam fora do contexto da mensagem.[/color:fb66e2c6f0]
:idea: [color=red:fb66e2c6f0]Leia as regras de conduta [url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=6689]aqui[/url][/color:fb66e2c6f0]


Siri_da_brahma

Siri_da_brahma

Curtidas 0

Respostas

Rômulo Barros

Rômulo Barros

14/07/2004

Coloque no seu form um LABEL e um TIMER. No Evento do TIMER FAÇA:


   If(Not(Label1.Top > Self.Height))Then
     Label1.Top := Label1.Top + 10
   Else
     Label1.Top := 20;



GOSTEI 0
Rômulo Barros

Rômulo Barros

14/07/2004

var
  Form1: TForm1;
  Cor : Boolean;
implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   If(Label1.Top < 416)Then
   Begin
     If(Cor)Then
     Begin
       Cor := Not cor;
       Label1.Font.Color := clRed;
     End
     Else
       Begin
         Cor := Not cor;
         Label1.Font.Color := clWindow;
       End;
     Label1.Top := Label1.Top + 10
     End
     Else
     Label1.Top := 16;
end;

end.



GOSTEI 0
POSTAR