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

@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

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

Новые блоги и статьи Все статьи Все блоги /
Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .
wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .

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

	Динамические объекты, удаление по клику на объект 19.11.2015, 16:38. Показов 2099. Ответов 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 Супер-модератор 33404 / 21514 / 8236 Регистрация: 22.10.2011 Сообщений: 36,914 Записей в блоге: 12
	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 Супер-модератор 33404 / 21514 / 8236 Регистрация: 22.10.2011 Сообщений: 36,914 Записей в блоге: 12
	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 Супер-модератор 33404 / 21514 / 8236 Регистрация: 22.10.2011 Сообщений: 36,914 Записей в блоге: 12
	25.11.2015, 15:56
	Как это связано с изначальным вопросом? 0

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

@volvo Супер-модератор 33404 / 21514 / 8236 Регистрация: 22.10.2011 Сообщений: 36,914 Записей в блоге: 12
	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

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

Решение