Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
Савва
9 / 9 / 0
Регистрация: 12.04.2012
Сообщений: 333
1

Отталкивание объектов

19.10.2012, 23:01. Просмотров 890. Ответов 4
Метки нет (Все метки)

Вот существуют 2 панелли и двигаются они в определенныом порядке. Необходимо прописать вот что: при столкновении панели отталкиваются друг от друга и идут в противоположные стороны. Пришлите код. Помогите!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.10.2012, 23:01
Ответы с готовыми решениями:

Логичное отталкивание панелей
Если у intersectrecta такое свойство, что при пересечении только двух сторон....

Отталкивание движущихся кнопок друг об друга
Здравствуйте. Я тут писал программу, где требуется сделать кнопки, которые...

Использование динамических объектов с использованием других динамических объектов
Есть 2 массива, один создаёт Combobox, второй - Memo. Они создаются в...

Передвижение объектов
Помогите. Пришлите код движения! Кинуть на форму любую панель или что-то еще и...

Существование объектов
Получил курсовую работу: Основу программы я сделал, но столкнулся с...

4
angstrom
2470 / 1846 / 242
Регистрация: 14.09.2012
Сообщений: 5,981
Записей в блоге: 2
19.10.2012, 23:14 2
Писать код лень, но мысль подкину. Используй функцию API - IntersectRect. Она проверяет пересеклись ли два прямоугольника.
0
Савва
9 / 9 / 0
Регистрация: 12.04.2012
Сообщений: 333
19.10.2012, 23:21  [ТС] 3
angstrom, это как
0
angstrom
2470 / 1846 / 242
Регистрация: 14.09.2012
Сообщений: 5,981
Записей в блоге: 2
19.10.2012, 23:28 4
The IntersectRect function calculates the intersection of two source rectangles and places the coordinates of the intersection rectangle into the destination rectangle. If the source rectangles do not intersect, an empty rectangle (in which all coordinates are set to zero) is placed into the destination rectangle.

BOOL IntersectRect(
LPRECT lprcDst, // address of structure for intersection
CONST RECT *lprcSrc1, // address of structure with first rectangle
CONST RECT *lprcSrc2 // address of structure with second rectangle
);

Parameters

lprcDst
Points to the RECT structure that is to receive the intersection of the rectangles pointed to by the lprcSrc1 and lprcSrc2 parameters.

lprcSrc1
Points to the RECT structure that contains the first source rectangle.

lprcSrc2
Points to the RECT structure that contains the second source rectangle.

Return Values

If the rectangles intersect, the return value is nonzero.
Delphi
1
2
3
4
5
6
7
var
  aRect : TRect;
begin
  if IntersectRect(aRect, Panel1.BoundsRect, Panel2.BoundsRect) then
    // столкнулись
...
end;
1
Савва
9 / 9 / 0
Регистрация: 12.04.2012
Сообщений: 333
19.10.2012, 23:30  [ТС] 5
angstrom, большое спасибо все понял и сделал ура!!!!!!!!!!!!!11
0
19.10.2012, 23:30
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.10.2012, 23:30

иерархию объектов
ДОБРЫЙ день , помогите создать иерархию объектов, содержащих информацию об...

Дерево объектов.
А можно вопрос по дереву объектов Например есть такое дерево: Легковые...

Индексация объектов
У меня такая проблема, я не знаю как перечислять объекты. Например мне надо...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru