Динамические объекты, удаление по клику на объект

@Ashford · Регистрация: 12.05.2015

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

На форме расположены динамически созданные объекты с разными тегами и по клику на такой объект нужно удалить его если его тег равен определённому числу(например 1). Как это можно реализовать?

@volvo · 19.11.2015, 18:42

Положить на форму компонент TApplicationEvents, и его обработчик OnMessage сделать таким:

C++
1
2
3
4
5
6
7
8
9
10
11
12
void __fastcall TForm1::ApplicationEvents1Message(tagMSG &Msg, bool &Handled)
{
    Handled = false;
    if (Msg.message == WM_LBUTTONDOWN)
    {
        TControl *ctrl = ControlAtPos(ScreenToClient(Msg.pt), true, true);
        if (ctrl && ctrl->Tag == 1)
        {
            delete ctrl;
        }
    }
}

@Ashford · 22.11.2015, 13:28 **[ТС]**

На этой строке выходит ошибка

C++
1
TControl *ctrl = ControlAtPos(ScreenToClient(Msg.pt), true, true);

no viable conversion from 'POINT'(aka 'tagPOINT') to 'const System::Types::TPoint'

@volvo · 22.11.2015, 13:54

Нормально все компилируется (XE2/XE4, монстров по 20 Гб с недоАндроидом не держу). Что за версия Билдера у тебя?

Опять у Эмбаркадеров (или как там они теперь называются) крыша поехала, и нужно делать через фиг знает что?

C++
1
2
        TPoint p = Point(Msg.pt.x, Msg.pt.y); // Оно нужно было им, чтобы вот это добавилось?
        TControl *ctrl = ControlAtPos(ScreenToClient(p), true, true);

@Ashford · 22.11.2015, 14:48 **[ТС]**

У меня Embarcadero Rad Studio 10 Seattle. Ошибки теперь нет, но и реакции на клик по объекту тоже нет

@nick42 · 23.11.2015, 09:47

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

реакции на клик по объекту тоже нет

Можно ж вывести (в капшн формы, например) p.x, p.y и проанализировать, "где" кликнули... .

@Ashford · 23.11.2015, 16:35 **[ТС]**

И как это реализовать

@nick42 · 23.11.2015, 20:55

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

как это реализовать

Просто очень. В обработчике ApplicationEventsMessage в конце добавляете
Caption = p.x; (или p.y - тогда видите смещение по вертикали)
Отмечаете для себя координаты какой-нибудь кнопки и, клацая по форме в разных местах, смотрите, что появляется в "шапке" формы. При кликах на "какой-нибудь" кнопке значение должно быть вблизи Button->Left.

@Ashford · 25.11.2015, 12:06 **[ТС]**

Ок есть теперь у меня координаты точки и что теперь делать?

@volvo · 25.11.2015, 12:18

Смотреть, как они соотносятся с координатами объекта ,на котором был клик. Те есть какое преобразование нужно применить, чтобы эта самая точка попала внутрь объекта? Фактически, тебе нужно понять, в какой системе координат возвращается Msg.pt, чтобы разобраться, как ее сконвертировать в систему координат с (0, 0) в верхнем левом углу формы (чтобы правильно отработала ControlAtPos)... Msg.pt должна возвращаться в экранной СК: (0, 0) - левый верхний угол экрана, но этого, видимо в новых версиях Билдера не происходит, потому что если бы были экранные координаты, то код из 4-го сообщения отработал бы.

@Ashford · 25.11.2015, 12:53 **[ТС]**

А вы не знайте как это все реализовать?

@volvo · 25.11.2015, 13:00

Я знаю, и реализовал еще в первом посте. Это работает на 4-х машинах, с Билдерами от XE2 до XE4. Что там накрутили в 10-ке - я без понятия, и ставить этого монстра (да еще с такими глюками, что половина программ просто может перестать работать) я не собираюсь.

Добавлено через 3 минуты
Еще раз: выводишь координаты клика в Caption, запоминаешь координаты Top/Left компонента, на котором будешь щелкать мышой, запускаешь программу, щелкаешь в самом верхнем левом углу этого компонента. И смотришь, какие координаты вывелись в Caption. Вычитаешь component.Left из pt.X, и component.Top из pt.Y. Что получилось? Совпадают ли полученные цифры с координатами верхнего левого угла формы на экране?

@Ashford · 25.11.2015, 15:48 **[ТС]**

Как узнать длинну массива объектов TImage

@volvo · 25.11.2015, 15:56

Как это связано с изначальным вопросом?

@Ashford · 25.11.2015, 16:01 **[ТС]**

Я сверяю полученные координаты и координаты объектов в массиве и нужно знать какая точная длинна у массива что бы пройтись по нему в счетчике

@volvo · 25.11.2015, 16:19

Тебе видней, код перед тобой, если что, как ты создавал массив - никто кроме тебя не знает.

@Ashford · 25.11.2015, 16:26 **[ТС]**

TImage img[100] - так создавал массив. При создании объектов заполняется он не полностью и нужно узнать сколько в нем объектов.

@Почтальон · 25.11.2015, 16:28

Ну так циклом пройдитесь и получите изображение по индексу. Как только пустое значение - значит все, конец. Хотя в этот массив в любом порядке можно запихать данные.

Новые блоги и статьи Все статьи Все блоги /
моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .

@Ashford 0 / 0 / 0 Регистрация: 12.05.2015 Сообщений: 26

	Динамические объекты, удаление по клику на объект 19.11.2015, 16:38. Показов 2032. Ответов 17 Метки нет (Все метки) На форме расположены динамически созданные объекты с разными тегами и по клику на такой объект нужно удалить его если его тег равен определённому числу(например 1). Как это можно реализовать? 0

@Ashford 0 / 0 / 0 Регистрация: 12.05.2015 Сообщений: 26
	22.11.2015, 14:48 [ТС]
	У меня Embarcadero Rad Studio 10 Seattle. Ошибки теперь нет, но и реакции на клик по объекту тоже нет 0

@Ashford 0 / 0 / 0 Регистрация: 12.05.2015 Сообщений: 26
	23.11.2015, 16:35 [ТС]
	И как это реализовать 0

@Ashford 0 / 0 / 0 Регистрация: 12.05.2015 Сообщений: 26
	25.11.2015, 12:06 [ТС]
	Ок есть теперь у меня координаты точки и что теперь делать? 0

@volvo Супер-модератор 33374 / 21499 / 8235 Регистрация: 22.10.2011 Сообщений: 36,894 Записей в блоге: 11
	25.11.2015, 12:18
	Смотреть, как они соотносятся с координатами объекта ,на котором был клик. Те есть какое преобразование нужно применить, чтобы эта самая точка попала внутрь объекта? Фактически, тебе нужно понять, `в какой системе координат возвращается Msg.pt`, чтобы разобраться, как ее сконвертировать в систему координат с (0, 0) в верхнем левом углу формы (чтобы правильно отработала ControlAtPos)... Msg.pt должна возвращаться в экранной СК: (0, 0) - левый верхний угол экрана, но этого, видимо в новых версиях Билдера не происходит, потому что если бы были экранные координаты, то код из 4-го сообщения отработал бы. 0

@Ashford 0 / 0 / 0 Регистрация: 12.05.2015 Сообщений: 26
	25.11.2015, 12:53 [ТС]
	А вы не знайте как это все реализовать? 0

@volvo Супер-модератор 33374 / 21499 / 8235 Регистрация: 22.10.2011 Сообщений: 36,894 Записей в блоге: 11
	25.11.2015, 13:00
	Я знаю, и реализовал еще в первом посте. Это работает на 4-х машинах, с Билдерами от XE2 до XE4. Что там накрутили в 10-ке - я без понятия, и ставить этого монстра (да еще с такими глюками, что половина программ просто может перестать работать) я не собираюсь. Добавлено через 3 минуты Еще раз: выводишь координаты клика в Caption, запоминаешь координаты Top/Left компонента, на котором будешь щелкать мышой, запускаешь программу, щелкаешь в самом верхнем левом углу этого компонента. И смотришь, какие координаты вывелись в Caption. Вычитаешь component.Left из pt.X, и component.Top из pt.Y. Что получилось? Совпадают ли полученные цифры с координатами верхнего левого угла формы на экране? 0

@Ashford 0 / 0 / 0 Регистрация: 12.05.2015 Сообщений: 26
	25.11.2015, 15:48 [ТС]
	Как узнать длинну массива объектов TImage 0

@volvo Супер-модератор 33374 / 21499 / 8235 Регистрация: 22.10.2011 Сообщений: 36,894 Записей в блоге: 11
	25.11.2015, 15:56
	Как это связано с изначальным вопросом? 0

@Ashford 0 / 0 / 0 Регистрация: 12.05.2015 Сообщений: 26
	25.11.2015, 16:01 [ТС]
	Я сверяю полученные координаты и координаты объектов в массиве и нужно знать какая точная длинна у массива что бы пройтись по нему в счетчике 0

@volvo Супер-модератор 33374 / 21499 / 8235 Регистрация: 22.10.2011 Сообщений: 36,894 Записей в блоге: 11
	25.11.2015, 16:19
	Тебе видней, код перед тобой, если что, как ты создавал массив - никто кроме тебя не знает. 0

@Ashford 0 / 0 / 0 Регистрация: 12.05.2015 Сообщений: 26
	25.11.2015, 16:26 [ТС]
	TImage img[100] - так создавал массив. При создании объектов заполняется он не полностью и нужно узнать сколько в нем объектов. 0

@Почтальон управление сложностью 1693 / 1306 / 259 Регистрация: 22.03.2015 Сообщений: 7,545 Записей в блоге: 5
	25.11.2015, 16:28
	Ну так циклом пройдитесь и получите изображение по индексу. Как только пустое значение - значит все, конец. Хотя в этот массив в любом порядке можно запихать данные. 0

Динамические объекты, удаление по клику на объект

Решение