Движение компонента Image по форме

@Савва · Регистрация: 12.04.2012

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

Помогите составить программу. Компонент Image(картинка) должна сама двигаться по форме (не случайно) не выходя за пределы её, подходя к борту она должна от него отталкиваться и двигаться только по диагоналям. Пожалуйста!

Добавлено через 22 секунды
Кто решит - тот гений!

Добавлено через 32 минуты
ПОМОГИТЕ!!!!!!!!!!!!!!1

@cargerdree · 12.10.2012, 20:01

я уже спрашивал раньше про это, полистай, мне отвечали

@Савва · 12.10.2012, 20:14 **[ТС]**

cargerdree, Полистал. Ничего похожего у тебя в темах не нашел. Мне нужно чтобы картинка двигалась сама по форме без нажатия клавиш(любых) и по диагонали!!!!!!!!!!

@саша40 · 12.10.2012, 21:15

Двигатся она будет. Если ты кинешь на форму TTimer и пропишешь код:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var
L,T,VelL,VelT, X, Y: single; //переменые кинь в раздел глобальных
begin
//задаем переменым значения
L:=Image1.Left;
T:=Image1.Top;
X:=L+VelL;
y:=T+VelT;
//проверяем где шарик
if X>ClientWidth-Image1.Width then 
VelL:=-VelL;
if X<0 then 
VelL:=-VelL;
if Y>ClienHeight-Image1.Width then 
VelT:=-VelT;
if y<0 then 
VelT:=-VelT;
//двигаем картинку
Image1.Ledt:=X;
Image1.Top:=Y;
end;

Интервал у таймера на 20-30. А в процедуру FormCreate, вот этот код:

Delphi
1
2
VelL:=10; //например
VelT:=10;//например

Всё.

@Савва · 13.10.2012, 12:39 **[ТС]**

саша40, двигается то он двигается, но вот до нижнего борта не доходит и отталкивается от невидимой линии и ещё - очень медленное движение, а надо чтобы картинка бегала быстро и плавно. Плавно - это уменьшить интервал, а быстро?

Добавлено через 19 минут
Со скоростью и плавностью настроил.

Добавлено через 1 час 6 минут
А ВОПРОС ЕЩЕ! КАК СДЕЛАТЬ ЧТОБЫ ПРИ УМЕНЬШЕНИИ ФОРМЫ КАРТИНКА ЗА ФОРМУ НЕ ВЫХОДИЛА?

Добавлено через 10 минут
При уменьшении или растягивании формы картинка не должна выходить за рамки формы вообще!!!!!!!!!!!!!!!!!!!!!!!!! ПОМОГИТЕ!

Добавлено через 1 час 2 минуты
Когда форму тянешь в бок или вверх или вниз картинка должна оставаться в форме, с какой скоростью бы не тянул. Помогите добавьте код!

@саша40 · 13.10.2012, 13:11

Регулируй скорость картинки и меняй интервал таймера

Добавлено через 1 минуту

Сообщение от Савва

КАК СДЕЛАТЬ ЧТОБЫ ПРИ УМЕНЬШЕНИИ ФОРМЫ КАРТИНКА ЗА ФОРМУ НЕ ВЫХОДИЛА?

я тебе это прописал. Картинка будет оталкиватся от края формы.

Добавлено через 49 секунд

Сообщение от Савва

При уменьшении или растягивании формы картинка не должна выходить за рамки формы вообще!!!!!!!!!!!!!!!!!!!!!!!!! ПОМОГИТЕ!

Если она немного, то надо подправить код.

@Савва · 13.10.2012, 13:43 **[ТС]**

саша40, когда резко сокращаю форму, картинка не успевает и остается за формой!

Добавлено через 3 минуты
или еще иногда застревает и по одной линии движется. Если аккуратно уменьшать форму тогда пойдет все работает, а если быстро двигать картинка оказывается за бортом формы!

13.10.2012, 13:44

OnCanResize - при попытке изменить размер.
OnResize - изменили размер.

Отталкивайся от этих двух событий.

При зацикливании, во многих играх поступают так: наращивается некий счётчик повтора движений, если некоторое время изменений в движении не происходит, делается принудительное изменение его.

@Савва · 13.10.2012, 14:27 **[ТС]**

angstrom, я не понял как. Помогите пожалуйста.

13.10.2012, 15:15

OnCanResize наступает при попытке изменить размер, можно в этом момент запретить таймер, а в OnResize разрешить.

@Савва · 13.10.2012, 15:17 **[ТС]**

angstrom, а куда это прописывать в какую процедуру?

Добавлено через 35 секунд
angstrom, и в uses что надо прописывать?

@sumrak95 · 13.10.2012, 15:26

Это событие, его нужно создать на форме, также как OnCreate (например)

@Савва · 15.10.2012, 18:32 **[ТС]**

Нет не то. Давайте заново сформулирую задачу. Надо чтобы компонент (картинка) двигался по диagонали и отталкивался от бортов. При уменьшении формы (быстрой) он вскоре возвращался туда. Сделать, объявив только 2 бyлeвыe переменные и через 4 ycлoвия. Помогите срочно!

Добавлено через 1 час 47 минут
.....

Добавлено через 15 секунд
.....

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@Савва 10 / 10 / 0 Регистрация: 12.04.2012 Сообщений: 333

	Движение компонента Image по форме 12.10.2012, 19:24. Показов 4691. Ответов 12 Метки нет (Все метки) Помогите составить программу. Компонент Image(картинка) должна сама двигаться по форме (не случайно) не выходя за пределы её, подходя к борту она должна от него отталкиваться и двигаться только по диагоналям. Пожалуйста! Добавлено через 22 секунды Кто решит - тот гений! Добавлено через 32 минуты ПОМОГИТЕ!!!!!!!!!!!!!!1 0

@cargerdree 10 / 10 / 1 Регистрация: 20.04.2012 Сообщений: 288
	12.10.2012, 20:01
	я уже спрашивал раньше про это, полистай, мне отвечали 0

@Савва 10 / 10 / 0 Регистрация: 12.04.2012 Сообщений: 333
	12.10.2012, 20:14 [ТС]
	cargerdree, Полистал. Ничего похожего у тебя в темах не нашел. Мне нужно чтобы картинка двигалась сама по форме без нажатия клавиш(любых) и по диагонали!!!!!!!!!! 0

@Савва 10 / 10 / 0 Регистрация: 12.04.2012 Сообщений: 333
	13.10.2012, 12:39 [ТС]
	саша40, двигается то он двигается, но вот до нижнего борта не доходит и отталкивается от невидимой линии и ещё - очень медленное движение, а надо чтобы картинка бегала быстро и плавно. Плавно - это уменьшить интервал, а быстро? Добавлено через 19 минут Со скоростью и плавностью настроил. Добавлено через 1 час 6 минут А ВОПРОС ЕЩЕ! КАК СДЕЛАТЬ ЧТОБЫ ПРИ УМЕНЬШЕНИИ ФОРМЫ КАРТИНКА ЗА ФОРМУ НЕ ВЫХОДИЛА? Добавлено через 10 минут При уменьшении или растягивании формы картинка не должна выходить за рамки формы вообще!!!!!!!!!!!!!!!!!!!!!!!!! ПОМОГИТЕ! Добавлено через 1 час 2 минуты Когда форму тянешь в бок или вверх или вниз картинка должна оставаться в форме, с какой скоростью бы не тянул. Помогите добавьте код! 0

@Савва 10 / 10 / 0 Регистрация: 12.04.2012 Сообщений: 333
	13.10.2012, 13:43 [ТС]
	саша40, когда резко сокращаю форму, картинка не успевает и остается за формой! Добавлено через 3 минуты или еще иногда застревает и по одной линии движется. Если аккуратно уменьшать форму тогда пойдет все работает, а если быстро двигать картинка оказывается за бортом формы! 0

@Савва 10 / 10 / 0 Регистрация: 12.04.2012 Сообщений: 333
	13.10.2012, 14:27 [ТС]
	angstrom, я не понял как. Помогите пожалуйста. 0

angstrom
	13.10.2012, 15:15
	OnCanResize наступает при попытке изменить размер, можно в этом момент запретить таймер, а в OnResize разрешить.

@Савва 10 / 10 / 0 Регистрация: 12.04.2012 Сообщений: 333
	13.10.2012, 15:17 [ТС]
	angstrom, а куда это прописывать в какую процедуру? Добавлено через 35 секунд angstrom, и в uses что надо прописывать? 0

@sumrak95 Избранный 83 / 83 / 42 Регистрация: 08.06.2012 Сообщений: 174
	13.10.2012, 15:26
	Это событие, его нужно создать на форме, также как OnCreate (например) 0

@Савва 10 / 10 / 0 Регистрация: 12.04.2012 Сообщений: 333
	15.10.2012, 18:32 [ТС]
	Нет не то. Давайте заново сформулирую задачу. Надо чтобы компонент (картинка) двигался по диagонали и отталкивался от бортов. При уменьшении формы (быстрой) он вскоре возвращался туда. Сделать, объявив только 2 бyлeвыe переменные и через 4 ycлoвия. Помогите срочно! Добавлено через 1 час 47 минут ..... Добавлено через 15 секунд ..... 0

Движение компонента Image по форме

Решение