Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 16.12.2012, 19:16   #1
daniil4326
Пользователь
 
Регистрация: 16.12.2012
Сообщений: 10
По умолчанию Delphi 7,как сделать так чтоб при перемещении определенной картинки на другую открывалась форма(подробнее в описании)

Есть четыре Картинки(Image) и есть тоже 4 компонента Image но без картинок,как сделать так,чтобы когда определенная картинка лежала на опр месте(незаполненой Image) и при совпадении всех этих 4 картинок с незаполнеными Image ,нажимать кнопку и подавалось сообщение(пофиг какое)
Говорю заранее картинки я уже сделал так,чтоб они двигались
Осталось закодить кнопку,но как?Подскажите пожалуйста,желательно код
daniil4326 вне форума Ответить с цитированием
Старый 16.12.2012, 19:57   #2
Кольша
Далеко не
Участник клуба
 
Аватар для Кольша
 
Регистрация: 11.08.2011
Сообщений: 1,512
По умолчанию

То есть вы хотите сделать типа капчи нет?
При перемещении смотрите положении перемещаемой картинке и других если она хоть над одной картинкой то автоматически как бы прилипает координаты становятся как у той над которой она!....муть какую то написал..если поймете то хорошо)
Кольша вне форума Ответить с цитированием
Старый 17.12.2012, 13:45   #3
Rin
Негодник
Форумчанин
 
Аватар для Rin
 
Регистрация: 10.11.2009
Сообщений: 880
По умолчанию

Есть 4 картинки: 1,2,3,4.
Есть 4 незаполненных Image: 1,2,3,4.
Так же есть правильное расположение картинок: 2,4,1,3.
Анализируешь перемещение картинок, записывая в некоторый массив где какая картинка, и если массив = правильному расположению картинок, то вызываешь кнопку.
Код:
....
if (m[0]=2)and(m[1]=4)and(m[2]=1)and(m[3]=3) then
Button1Click(sender);
....
procedure TMyForm1.Button1Click(Sender:TObject);
begin
MessageBox(0, 'Текст', 'Заголовок сообщения', mb_Right);
end;
Если помог, проси поставить минус. Будь оригинален!
Rin вне форума Ответить с цитированием
Старый 22.12.2012, 14:32   #4
zyxel-md
Пользователь
 
Регистрация: 12.04.2012
Сообщений: 19
По умолчанию

daniil4326 если не шаришь в программировании, то можешь условие по позиции сделать left & top и условие if (img1.left=0) and (img1.top:=100) then showmessage('blablabla'); или новая форма
"then form2.show; form1.hide;" позиции left & top можешь просмотреть нажав на картинку в панели с левой стороны/
zyxel-md вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Можно ли сделать в бд, чтобы при нажатии на строку таблицы открывалась новая форма? Екатерина20 БД в Delphi 2 12.05.2012 20:37
Как сделать так чтоб при запуске программы сразу показывалась не одна форма а две либо больше? Jleksern Общие вопросы Delphi 4 19.01.2012 18:55
Как правильно сделать чтобы одиннадцатая форма открывалась в первой Leila_4ever Общие вопросы Delphi 9 27.05.2011 08:53
Как сделать чтоб при нажатии кнопки форма не работала? quarty Помощь студентам 6 05.11.2010 15:50
как сделать так чтоб моя прога при запуске о.с. стартовала steck Общие вопросы Delphi 11 03.04.2007 20:10