Показать сообщение отдельно
  #9  
Старый 02.05.2011, 01:20
Аватар для Bargest
Bargest Bargest вне форума
Профессионал
 
Регистрация: 19.10.2010
Адрес: Москва
Сообщения: 2,390
Версия Delphi: XE3/VS12/FASM
Репутация: 14665
По умолчанию

надо по экрану? тогда кидаешь на форму таймер, ставишь нужный интервал в миллисекундах, дважды тыкаешь и пишешь там код перемещения формы
Код:
Top:=Top+2;
Left:=Left+2;
это заставит двигаться по диагонали.
Чтобы по периметру надо продумать например флаги, чтобы ехал горизонтально, потом доехал до края - вертикально и т.д.
на заметку, пригодится: ширина экрана - Screen.Width. высота - Screen.Height.
__________________
jmp $ ; Happy End!
The Cake Is A Lie.
Ответить с цитированием