Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Ответ
 
Опции темы
Старый 07.03.2013, 00:08   #1
Алексей_2012
t45t
Профессионал
 
Аватар для Алексей_2012
 
Регистрация: 20.03.2012
Адрес: пгт. Балакирево
Сообщений: 1,718
Репутация: 279

icq: 649899888
По умолчанию При столкновении между image переместить другой Image

Здравствуйте! На форме есть два Timage, если один из Timage столкнется с другим, а пользователь дальше тащит картинку, то передвинуть тот, с которым столкнулся Timage допустим есть image2 и image3, пользователь таскает по форме image2 и image2 столкнулся с image3, при этом если пользователь продолжает перемещать image2, и объекты по прежнему совмещены между собой, то image2 должен переместится вместе с image3, ну то есть как бы image2 толкает image3

Код:

procedure tform1.proverkas;
begin
if (Image3.left=image2.left) then
Image3.left:=Image3.left+Image2.left
else
if (Image3.top=image2.top) then
Image3.top:=Image3.top+Image2.top;
else
Exit;
end;

__________________
from dark to light)
Алексей_2012 вне форума   Ответить с цитированием
Старый 07.03.2013, 09:32   #2
evg_m
Профессионал
 
Регистрация: 20.04.2008
Сообщений: 4,744
Репутация: 2097
По умолчанию

как узнать о препятствии справа от Image2
12.jpg
аналогично проверять слева, сверху и снизу.
__________________
программа — запись алгоритма на языке понятном транслятору
evg_m на форуме   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как изменить направление формы при столкновении с другой формой в ДЕЛФИ Николай1 Помощь студентам 0 06.11.2011 17:14
EPNGMissingMultipleIDAT. This PNG Image is invalid because it has missing image parts kardinal94 Общие вопросы Delphi 0 08.10.2010 20:31
Image одной формы = Image другой формы DimR Microsoft Office Excel 2 21.04.2010 23:08
Вопрос по Image (скачанная картинка не хочет выводиться в Image) Radnor Мультимедиа в Delphi 2 06.07.2009 02:20
Перенос из одного Image в другой Dimitriys Компоненты Delphi 5 14.07.2007 23:32


17:14.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru