![]() |
|
#7
|
|||
|
|||
![]() Вот чтото выйшло у меня =) Я сам начинающий, мне 14 и я недавно начал учить делфи.
Кидаеш таймер и Label1. Потом для таймера прописываеш: Код:
procedure TForm1.Timer1Timer(Sender: TObject); begin label1.left:=label1.Left+1; if Label1.Left > Form1.width then Label1.Left := Label1.Left-(Form1.width+Label1.Width); end; Вот тебе и наоборот как ты просил! Код:
procedure TForm1.Timer1Timer(Sender: TObject); begin label1.left:=label1.Left-1; if Label1.Left = -Label1.Width then Label1.Left := Form1.width+Label1.Width; end; Последний раз редактировалось GraffyM, 30.01.2009 в 17:40. |