Мячик, отскакивающий от границ окна

Мячик, отскакивающий от границ окна

Расположите на форме два компонента Shape1: TShape с вкладки Additional и Timer1: TTimer с вкладки System.

В инспекторе объектов (Object Inspector) выставьте начальные значения для каждого компонента

Shape1
 Left: 10 (отступ слева)
 Top: 10  (отступ сверху)
 Width: 20  (ширина шарика)
 Height: 20  (высота шарика)
 Shape: stCircle;  (вид фигуры - круг)

Timer1
 Interval: 30 (скорость вызова процедуры движения 0.030 c)

Теперь в инспекторе объектов переключитесь на вкладку Events и для компонента TTimer задайте название процедуры OnTimer (лучше это сделать автоматически кликнув два раза в пустом поле)

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 // движение - изменение положения шарика
 Shape1.Left :=  Shape1.Left + dx;
 Shape1.Top  :=  Shape1.Top + dy;
 // проверка на выход за границы формы
 if (Shape1.Left + Shape1.Width >= Form1.ClientWidth) or (Shape1.Left <= 1) 
  then dx := -dx; // если достигли границы меняем направление
 if (Shape1.Top + Shape1.Height >= Form1.ClientHeight) or (Shape1.Top <= 1) 
  then dy := -dy; // если достигли границы меняем направление
end;

В окне кода не забыть проинициализировать значение переменных dx, dy начальными значениями. В разделе Var прописываем

var
  Form1: TForm1;
  dx: integer = 5; // приращение движения по X, Y 
  dy: integer = 5;

Запустите программу. Run.

СКАЧАТЬ ПРОГРАММУРазмер
Демо-урок: Мячик, отскакивающий от границ окна (1070)387 кб
Добавить комментарий  |  17632 просмотра

Отправил Сб, 03/30/2019 - 21:29

Выберите Кулон бижутерия 5469490ч с доставкой по всей России в разделе Бижутерия
У нас Вы можете купить лучший текстиль, производимый в России на предприятиях города Иваново. Наши основные отличия от конкурентов:
Большой ассортимент - абсолютно все виды постельного белья и трикотажа - женского, детского, мужского;
Высокое качество российского производителя;
Разумные цены;
Разнообразные способы доставки по всей территории РФ;
Сертификация всей продукции.
Но, всё-таки, главной причиной для того, чтобы купить текстиль именно в нашем магазине, является максимальная прозрачность работы над заказом на всех этапах.
На сайте Вы всегда без труда можете узнать текущий этап работы, а операторы нашей бесплатной горячей телефонной линии, которые работают без выходных, проконсультируют по любому вопросу.
http://bit.ly/2Hq81g0 - Купить детский халат в подарок на день рождения в интернет-магазине

Отправил Чт, 03/14/2019 - 19:35

http://bit.ly/2HxZ7MD - МОЙ ПРОВЕРЕННЫЙ СПОСОБ ВЕРНУТЬ ФИГУРУ ПОСЛЕ РОДОВ! МОЙ ПРОВЕРЕННЫЙ СПОСОБ ВЕРНУТЬ ФИГУРУ ПОСЛЕ РОДОВ!

Отправил Ср, 03/13/2019 - 23:19

http://bit.ly/2Dn5uyr - Трикотажные шорты для мальчиков

http://bit.ly/2Dn5uyr - Светлые джинсы Super Skinny

Отправил Пнд, 03/11/2019 - 14:54

https://clck.ru/FLCYf Жидкий газон AquaGrazz
Aquagrazz способен в значительной мере облегчить создание красивых газонов и лужаек за счет особого способа посадки семян – путем распыления специального раствора.
В результате получается ровный, яркий, сочный газон равномерной толщины.
Такой, каким он должен быть, и каким можно гордиться перед друзьями или соседями.

Отправил Пнд, 03/11/2019 - 01:47

https://clck.ru/FJLFe Cledbel 24K Gold - маска-пленка с лифтинг-эффектом
Инновационная маска с коллоидным золотом для безоперационной подтяжки кожи лица и шеи.
Восстанавливает выработку коллагена, разглаживает морщины и подтягивает кожу, а также очищает поры и избавляет от черных точек.
100% натуральный состав. http://bit.ly/2IOMuyU

Отправил Вс, 03/10/2019 - 05:15

https://clck.ru/F7nBP - Держатель для смартфона с функцией беспроводной зарядки
Уникальный автомобильный держатель для смартфона с беспроводной зарядкой.
Устройство надежно крепится в салоне авто благодаря двойной фиксации.
Автоматически заряжает смартфон, когда вы в пути.

Отправил Сб, 03/09/2019 - 00:36

https://clck.ru/F7nBP - Держатель для смартфона с функцией беспроводной зарядки
Уникальный автомобильный держатель для смартфона с беспроводной зарядкой.
Устройство надежно крепится в салоне авто благодаря двойной фиксации.
Автоматически заряжает смартфон, когда вы в пути.

Отправил Чт, 03/07/2019 - 12:44

http://shortm.ru/nNKn - Крем для удаления щетины Razorless Shaving

Новый и необычайно простой способ быстрого удаления нежелательной растительности на лице и теле.
Больше не понадобится бритвенный станок, не придётся терпеть дискомфорт, страдать от раздражения кожи, случайных порезов и микротрещин.
Всего 3-5 минут и у мужчины гладкая кожа, без малейшего признака растительности.

https://clck.ru/FFd7N - Крем для удаления щетины

Отправил Чт, 03/07/2019 - 12:30

http://bit.ly/2SeAlmc - Extreme Power Belt - пояс для похудения и коррекции фигуры
Единственный аксессуар, который может уменьшить размер талии на двенадцать сантиметров всего за две секунды.
А если носить Xtreme Power Belt регулярно, то можно легко избаваться от лишнег жира на животе!

Последние комментарии

  • Как построить окружность по трем точкам?
    Капкова Марина Алексеевна 15.07.1990 Лобачева Марина Алексеевна 15.07.1990 Место рождения: Тюмень Адреса: ТЮМЕНСКАЯ ОБЛ, ТЮМЕНЬ, УЛ. МОЛОДОГВАРДЕЙЦЕВ, д. 81, кв. 7 Документы: Паспорт Серия 7118 № 360016, Выдан 25.05.2018, 720002 ОТДЕЛЕНИЕ ПО ВОПРОСАМ МИГРАЦИИ В КАЛИНИНСКОМ АДМИНИСТРАТИВНОМ ОКРУГЕ...
  • Как в Delphi использовать картинки формата JPEG?
    Капкова Марина Алексеевна 15.07.1990 Лобачева Марина Алексеевна 15.07.1990 Место рождения: Тюмень Адреса: ТЮМЕНСКАЯ ОБЛ, ТЮМЕНЬ, УЛ. МОЛОДОГВАРДЕЙЦЕВ, д. 81, кв. 7 Документы: Паспорт Серия 7118 № 360016, Выдан 25.05.2018, 720002 ОТДЕЛЕНИЕ ПО ВОПРОСАМ МИГРАЦИИ В КАЛИНИНСКОМ АДМИНИСТРАТИВНОМ ОКРУГЕ...
  • Гостевая книга
    Капкова Марина Алексеевна 15.07.1990 Лобачева Марина Алексеевна 15.07.1990 Место рождения: Тюмень Адреса: ТЮМЕНСКАЯ ОБЛ, ТЮМЕНЬ, УЛ. МОЛОДОГВАРДЕЙЦЕВ, д. 81, кв. 7 Документы: Паспорт Серия 7118 № 360016, Выдан 25.05.2018, 720002 ОТДЕЛЕНИЕ ПО ВОПРОСАМ МИГРАЦИИ В КАЛИНИНСКОМ АДМИНИСТРАТИВНОМ ОКРУГЕ...

Счетчики

  
Copyright © 2010 - 2012 Обучалки. All Rights Reserved.