Código Delphi [-] procedure TForm1.Timer1Timer(Sender: TObject); begin Label1.Top := Label1.Top - 10; if Label1.Top + Label1.Height < 0 then Label1.Top := Panel1.Height; end;
procedure TForm1.Timer1Timer(Sender: TObject); begin Label1.Top := Label1.Top - 10; if Label1.Top + Label1.Height < 0 then Label1.Top := Panel1.Height; end;