Как сделать одно событие для нескольких одинаковых объектов с разными индексами

@FLECKTOR · Регистрация: 06.06.2019

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

У меня несколько элементов shape с именами Blue1-10, вопрос в том, как создать событие, onMouseDown допустим, но только не для каждого отдельно взятого Blue, а для всех элементов, имя которых начинается на Blue.
Т.е. например не так:

void __fastcall TForm1::Blue1MouseDown
void __fastcall TForm1::Blue2MouseDown
...
void __fastcall TForm1::Blue10MouseDown

А так:

void __fastcall TForm1::BlueMouseDown

@nick42 · 06.06.2019, 16:17

Используйте Sender из параметров вызова__

C++
1
2
3
4
5
6
7
8
9
void __fastcall TForm1::Blue1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
     TShape* sh = dynamic_cast<TShape*>(Sender);
     if( sh->Name.SubString(1,4)!="Blue") return;
   /*
     sh->Brush->Color = clBlack;  - your actions
   */
}

Просто назначьте остальным шейпам этот обработчик; а он работает с объектом sh, т.е. тем, от которого пришел запрос на обработку.

@FLECKTOR · 06.06.2019, 21:25 **[ТС]**

Спасибо! получилось

@Lelik-pahan · 07.06.2019, 10:52

А зачем такая проверка с именем вызывающего объекта, если можно назначить этот обработчик только нужным компонентам? )

@FLECKTOR · 09.06.2019, 13:27 **[ТС]**

Я в принципе так и сделал, просто нужным объектам добавил это событие, но если бы не было этих строк

C++
1
2
     TShape* sh = dynamic_cast<TShape*>(Sender);
     if( sh->Name.SubString(1,4)!="Blue") return;

то при нажатие на Blue1-10 действия происходили бы только с Blue1, а не с теми на которые я нажал.

@Lelik-pahan · 11.06.2019, 11:45

FLECKTOR, только без первой, в которой указатель на вызывающий объект Sender приводится к указателю на TShape. А вот проверка, содержит ли имя вызвавшего компонента подстроку "Blue" не нужна, если ты и так назначаешь этот обработчик только нужным компонентам.
Вот если бы это был какой-то универсальный обработчик, который бы делал разные действия для компонентов с разным именем - тогда это нужно.

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа 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, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

@FLECKTOR 0 / 0 / 0 Регистрация: 06.06.2019 Сообщений: 8

	Как сделать одно событие для нескольких одинаковых объектов с разными индексами 06.06.2019, 15:40. Показов 2103. Ответов 5 Метки нет (Все метки) У меня несколько элементов shape с именами Blue1-10, вопрос в том, как создать событие, onMouseDown допустим, но только не для каждого отдельно взятого Blue, а для всех элементов, имя которых начинается на Blue. Т.е. например не так: void __fastcall TForm1::Blue1MouseDown void __fastcall TForm1::Blue2MouseDown ... void __fastcall TForm1::Blue10MouseDown А так: void __fastcall TForm1::BlueMouseDown 0

@FLECKTOR 0 / 0 / 0 Регистрация: 06.06.2019 Сообщений: 8
	06.06.2019, 21:25 [ТС]
	Спасибо! получилось 0

@Lelik-pahan 1709 / 905 / 207 Регистрация: 25.11.2009 Сообщений: 1,850
	07.06.2019, 10:52
	А зачем такая проверка с именем вызывающего объекта, если можно назначить этот обработчик только нужным компонентам? ) 0

@Lelik-pahan 1709 / 905 / 207 Регистрация: 25.11.2009 Сообщений: 1,850
	11.06.2019, 11:45
	FLECKTOR, только без первой, в которой указатель на вызывающий объект Sender приводится к указателю на TShape. А вот проверка, содержит ли имя вызвавшего компонента подстроку "Blue" не нужна, если ты и так назначаешь этот обработчик только нужным компонентам. Вот если бы это был какой-то универсальный обработчик, который бы делал разные действия для компонентов с разным именем - тогда это нужно. 0

Как сделать одно событие для нескольких одинаковых объектов с разными индексами

Решение