Динамическое создание объекта + Drag&Drop

@stasagent · Регистрация: 28.01.2013

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

Здравствуйте!
Такая вот задачка:
Мне нужно по щелчку на кнопку динамически создавать компонент (скажем типа Shape) - это я умею.
Так же нужно реализовать Drag&Drop. Для компонента который я сам устанавливаю на форме я так же могу этого добиться.
Вся загвоздка в том, чтобы создать этот компонент динамически и чтобы этот объект можно было тягать по форме.
Прошу знающих людей подсказать, как возможно это реализовать.

Добавлено через 2 часа 19 минут
Это возможно хоть? Есть смысл ковырять?

@dondublon · 30.01.2013, 11:14

Для начала, не надо использовать глобальные переменные.

@stasagent · 30.01.2013, 11:15 **[ТС]**

Сообщение от UI

Я не просто же так сказал, что надо работать с объектами через Sender, наверное? Предыдущий мой пост перечитай, и сделай так, как там написано, будет работать...

Как же ты был прав!!!!!!!!!!!!!!!!
Заменил:

Delphi
1
2
Img.Left:=Img.Left+x-x0; // Изменяем позицию левого края
Img.Top:=Img.Top+y-y0; // Изменяем позицию верхнего края

на:

Delphi
1
2
(Sender As TImage).Left:=(Sender As TImage).Left+x-x0;
  (Sender As TImage).Top:=(Sender As TImage).Top+y-y0

Все идеально работает!!!
Спасибо тебе и всем кто помогал мне! С удовольствием бы с вами попил пивка

Новые блоги и статьи Все статьи Все блоги /
сукцессия 30. Фосфорный и азотный замки по "честному" закону лимитирования Либиха anaschu 16.07.2026 Основные достижения за последние дни 1. Механизм отложенного высвобождения фосфора Добавлен специальный пул для медленного разложения меланизированных гиф ЕСМ Реализована разная скорость. . .	Запрет пометки на удаление и отмены проведения Maks 16.07.2026 Алгоритм из решения ниже реализован на нетиповом документе "ПутевойЛист" разработанного в КА2. Задача: запретить помечать на удаление и отменять проведения путевого листа при условии, если он сдан. . .	Как надо было делать правильно - вообще не слушать ИИ, его дело - текст. Hrethgir 15.07.2026 А вообще надо было делать не так, чтобы не исправлять ошибку https:/ / www. cyberforum. ru/ blogs/ 223907/ 10996. html , правильно было : удалил кнопку, а потом добавил её. Всё это стресс конечно. Почему?. . .	Знаете, от чего появляется стресс? kumehtar 15.07.2026 Стресс появляется оттого, что вы, зная как поступить правильно, делаете наоборот. Ларри Уингет
Нас бьют, а мы крепчаем? Какая чушь! kumehtar 15.07.2026 Вот это вот бытующее мнение, что человек меняется только под действием проблем, всегда считал вредоносным. Поверь, от проблем у людей появляются не изменения, а нервное расстройство и ПТСР. А. . .	сукцессия 29. Переход от одних деревьев на другие делать более или менее вероятностным? anaschu 12.07.2026 Насколько смена типов микоризы — исключительное событие в двухвековой сукцессии? Оценка вероятности в пространстве параметров В текущей версии модели успешно реализован ключевой механизм. . .	сукцессия 27. Думаю, как переделывать уже написанную статью с планами на сукцессию. anaschu 12.07.2026 Анализ соответствия модели требованиям Реализованные компоненты: Механизм закисления почвы через протонную помпу Конкуренция между типами микориз pH как триггер сукцессии C/ P соотношение. . .	Сукцессия 26. Мат модель создана. anaschu 12.07.2026 Модель смены растительных сукцессий посредством управления грибами работает внутри небольшой ячейки почвы, восстанавливающейся после пожара, где ненадолго бывшее царство хвойных снова захватили. . .

@stasagent 0 / 0 / 0 Регистрация: 28.01.2013 Сообщений: 22

	Динамическое создание объекта + Drag&Drop 28.01.2013, 17:20. Показов 5610. Ответов 21 Метки нет (Все метки) Здравствуйте! Такая вот задачка: Мне нужно по щелчку на кнопку динамически создавать компонент (скажем типа Shape) - это я умею. Так же нужно реализовать Drag&Drop. Для компонента который я сам устанавливаю на форме я так же могу этого добиться. Вся загвоздка в том, чтобы создать этот компонент динамически и чтобы этот объект можно было тягать по форме. Прошу знающих людей подсказать, как возможно это реализовать. Добавлено через 2 часа 19 минут Это возможно хоть? Есть смысл ковырять? 0

@dondublon 4661 / 2080 / 367 Регистрация: 17.03.2012 Сообщений: 10,202 Записей в блоге: 6
	30.01.2013, 11:14
	Для начала, не надо использовать глобальные переменные. 0