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

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

Расположите на форме два компонента 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.

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

Отправил Сб, 04/11/2020 - 21:40

До какого времени?

------
url

Не так трудно умереть за друга, как найти друга, который стоил бы того, чтобы умереть за него.

------
https://regular-files-blogv.blogspot.com

Отправил Сб, 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 регулярно, то можно легко избаваться от лишнег жира на животе!

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

  • Гостевая книга
    vitality ed pills cure for ed or natural ed medications treatment for erectile dysfunction or how to get amoxicillin can i buy amoxicillin over the counter or prednisone 20 mg tablets coupon prednisone 5mg coupon or vacuum pump for ed ed pills for sale
  • Гостевая книга
    erectile dysfunction medication comparison of ed drugs ed cures that work otc ed pills https://canadianpharmacyvikky.com real viagra without a doctor prescription usa ed aids buy prescription drugs online without herbal remedies for ed
  • Гостевая книга
    ed medications over the counter canadian pharmacy vikky best ed drugs new erectile dysfunction treatment https://canadianpharmacyvikky.com ed pills online

Счетчики

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