Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

HELP. Алгоритм. [D5, Win95/98, WinME, NT4]

novomod © (2002-01-31 14:24:00)
Движется два объекта, один горизонтально, а другой вертикально.
Условие IF (ОБЪЕКТ1)TOP= (ОБЪЕКТ2)TOP THEN
IF (ОБЪЕКТ1)LEFT=(ОБЪЕКТ2)LEFT THEN BEGIN (......)END;
Нужно задать алгоритм для диапазона left для ОБЪЕКТА1.
Т.е. как бы при "попадание" ОБЪЕКТА1 в площадь ОБЪЕКТА2 происходит определенное действие.
Я же не буду писать следующий код:
IF (ОБЪЕКТ1)TOP= (ОБЪЕКТ2)TOP THEN
IF (ОБЪЕКТ1)LEFT=(ОБЪЕКТ2)LEFT THEN BEGIN (......)END;
IF (ОБЪЕКТ1)TOP= (ОБЪЕКТ2)TOP THEN
IF (ОБЪЕКТ1)LEFT=(ОБЪЕКТ2)LEFT+1 THEN BEGIN (......)END;
IF (ОБЪЕКТ1)TOP= (ОБЪЕКТ2)TOP THEN
IF (ОБЪЕКТ1)LEFT=(ОБЪЕКТ2)LEFT+2 THEN BEGIN (......)END;
IF (ОБЪЕКТ1)TOP= (ОБЪЕКТ2)TOP THEN
IF (ОБЪЕКТ1)LEFT=(ОБЪЕКТ2)LEFT+3 THEN BEGIN (......)END;и т.д.
(если мне нужно прописать диапазон от 1до 1000) пару десятков таких строк я бы написал, но......
Кто конечно понял чего я хочу и ответил по теме -!!!!!СПАСИБО!!!!

novomod (2002-02-01 18:06:00) [1]
Юрий Зотов.
Спасибо. Функциклирует!
Только не
if IntersectRect(R, Obj1.BoundsRect, Obj2.BoundsRect)
and (R = Ob2.BoundsRect) then ...
А if IntersectRect(R, Obj1.BoundsRect, Obj2.BoundsRect)then...
Я разобрался ОК!

Юрий Зотов (2002-01-31 15:16:00) [2]
Возможно, так:

var
R: TRect;

if IntersectRect(R, Obj1.BoundsRect, Obj2.BoundsRect)
and (R = Ob2.BoundsRect) then ...

Посмотрите также UnionRect.

novomod (2002-01-31 15:04:00) [3]
Благодарю,попробую!

MBo (2002-01-31 14:41:00) [4]
Тяжело понять смысл вопроса...
p:tpoint;
r:trect;

p.x:=Obj1.Left;
p.y:=Obj1.Top;
r:=Obj2.BoundsRect;
if PtInRect(r,p) then ...

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »