Изменение направления движения

@alinkasexy · Регистрация: 14.01.2010

Author24 — интернет-сервис помощи студентам

Label1 двигается от левого края к правому при достижении границы формы меняет направление движения в обратную сторону.

@doni1 · 04.02.2010, 20:20

отлично

@Motzart · 04.02.2010, 21:49

Сообщение от doni1

отлично

Поддерживаю, это реально КРУТО

)))))

@Lord_Voodoo · 04.02.2010, 22:40

alinkasexy, и что у вас не получается - в таймере какой-то шаг прибавлять к Label.Left ???

doni1, Motzart, хорош флудить...

@Biggemot · 05.02.2010, 09:35

Delphi

var
  Form1: TForm1;
  Forw: boolean;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Forw:=True;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if not (Label1.Left in [0..Form1.ClientWidth-Label1.Width]) then Forw:=not Forw;
  if Forw then Label1.Left:= Label1.Left+5
  else Label1.Left:=Label1.Left-5;
end;

@alinkasexy 0 / 0 / 0 Регистрация: 14.01.2010 Сообщений: 11
		1
	Изменение направления движения 04.02.2010, 19:35. Показов 1483. Ответов 4 Метки нет (Все метки) Label1 двигается от левого края к правому при достижении границы формы меняет направление движения в обратную сторону. 0

@doni1 4 / 3 / 0 Регистрация: 30.01.2010 Сообщений: 52
	04.02.2010, 20:20	2
	отлично 0

@Motzart 105 / 104 / 9 Регистрация: 10.01.2010 Сообщений: 392
	04.02.2010, 21:49	3
	Сообщение от doni1 отлично Поддерживаю, это реально КРУТО ))))) 0

@Lord_Voodoo Супер-модератор 8783 / 2536 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	04.02.2010, 22:40	4
	alinkasexy, и что у вас не получается - в таймере какой-то шаг прибавлять к Label.Left ??? doni1, Motzart, хорош флудить... 0

	05.02.2010, 09:35