Как внутри события получить имя объекта

@kebot · Регистрация: 11.07.2012

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

Доброго времени суток, всем.

Все наверное в курсе - когда интерфейс к программе пишешь, постоянно приходится один и тот же
кусок кода дублировать с незначительными изменениями в деталях, но суть одна.

К примеру есть на форме 42 кнопки(в виде картинок), и у них допустим анимация реализована.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
   procedure TForm1.Img_01_3MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Img_01_3.Picture.LoadFromFile('C:\BIT\RES\01_3_3.jpg');
end;
 
procedure TForm1.Img_01_3MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   Img_01_3.Picture.LoadFromFile('C:\BIT\RES\01_3_1.jpg');
end;
 
procedure TForm1.Img_01_3MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
   Img_01_3.Picture.LoadFromFile('C:\BIT\RES\01_3_2.jpg');
end;
 
procedure TForm1.Img_01_3MouseLeave(Sender: TObject);
begin
   Img_01_3.Picture.LoadFromFile('C:\BIT\RES\01_3_1.jpg');
end;

это просто пример (я знаю, что рациональней все в dll засунуть и оттуда вызывать)
я про другое - мне этот кусок кода для 42х кнопок надо 42 раза копировать только имена везде менять

а нельзя ли как нить рациональней сделать ?

Вот если бы внутри события я смог бы узнать имя объекта - с которым происходит это событие
то дальше дело техники, написать функцию меняющую различия-детали уже не сложно.

А получив такое универсальное событие - можно тупо в инспекторе его поставить на оставшиеся 41 кнопку.

Но как эту "рекурсию" реализовать ?

@mss · 02.04.2015, 21:06

(Sender as TComponent).Name

@kebot · 02.04.2015, 21:16 **[ТС]**

Огромное спасибо, давно мечтал о такой штуке.

@mss · 02.04.2015, 21:18

Не по теме:

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

давно мечтал

Давно бы открыл учебник и прочитал)

@northener · 02.04.2015, 21:39

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

Вот если бы внутри события я смог бы узнать имя объекта - с которым происходит это событие

Которое (имя) на самом деле нафиг никому не нужно.

@krapotkin · 02.04.2015, 22:18

как всегда, не нужно помогать ТС делать то что он спрашивает, ибо XYZ

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

я знаю, что рациональней все в dll засунуть и оттуда вызывать

неправильно знаешь

по поводу 42 кнопок:
загружать с диска хоть что "по мановению мыши", это пипец.
есть компонент TImageList
он как раз предназначен для хранения пачки картинок, которые по необходимости подставляются, рисуются и т.д.

@kebot · 05.04.2015, 21:36 **[ТС]**

А "ТС" это, случаем не обидная аббревиатура ? товарищ ПК (Понимающий Крапоткин).

На счет книжек - читаю круглосуточно, но в первую очередь о том, что нужно моему реальному проекту в
данный момент.

Да нет у меня - "заложенного базиса основ", как и нескольких лет, чтобы его получить.
Учится приходится на ходу, делая реальные вещи - и если сравнить мои знания сейчас и несколько месяцев назад
то это небо и земля. Да и как по другому то ? Сухая теория - каша в голове. Вот когда, все шишки
набьешь - да научишься.

MSS, за ответ спасибо - я же не прошу за меня все написать, он намекнул где "ковырнуть", я в свою очередь
открыл новый для себя пласт знаний, с чем можно посмотреть, почитать, поработать.

И вот какая штука, мой кривой "Y" нормально работает даже, в своем самом извращенном виде.
А искомый "X", чего то не клеится пока. Я про TImageList:

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

во вторых хрен с ним с размером, но нет реакции на MouseLeave, на MouseMove есть.

я понимаю - "ПОНИМАЮЩИХ"

, все эти мои "мановения мыши" наверно раздрожают
ну, а на какое событие мне реагировать, если по задумке это событие наведение курсора на картинку ?

в третьих я так понимаю если все хранить, в TImageList или в ресурсном файле - это путь
увеличения размера исполняемого файла (exe) программы, что тоже не всегда гуд

Ладно, буду искать свою "золотую середину" - спасибо за внимание.

@krapotkin · 05.04.2015, 21:50

Не по теме:

1. ТС - это топик стартер, как-то на форумах уже общий момент. так что постарайтесь без обид

2. "потому что нужно вопрос задавать - как сделать то, что нужно сделать, а не то, что делать не нужно" )))
перевожу: если бы мы знали всю задачу, а не ее обрывок...
может, и решается она совсем по другому, без изобретения велесопеда

3. есть еще вопросы, не относящиеся к программированию. например, загружать картинку с диска непрерывно - это к области здравого смысла относится, а не к пластам знаний

4. от того, в программе хранится файл, или рядом с ней, размер потребляемого на диске места не изменяется. кроме того, при загрузке программы система не грузит ее полностью в память, так что и тут никакого проигрыша. храните в exe на здоровье

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@mss 3530 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	02.04.2015, 21:06
	(Sender as TComponent).Name 1

@kebot 9 / 9 / 4 Регистрация: 11.07.2012 Сообщений: 200
	02.04.2015, 21:16 [ТС]
	Огромное спасибо, давно мечтал о такой штуке. 0

@kebot 9 / 9 / 4 Регистрация: 11.07.2012 Сообщений: 200
	05.04.2015, 21:36 [ТС]
	А "ТС" это, случаем не обидная аббревиатура ? товарищ ПК (Понимающий Крапоткин). На счет книжек - читаю круглосуточно, но в первую очередь о том, что нужно моему реальному проекту в данный момент. Да нет у меня - "заложенного базиса основ", как и нескольких лет, чтобы его получить. Учится приходится на ходу, делая реальные вещи - и если сравнить мои знания сейчас и несколько месяцев назад то это небо и земля. Да и как по другому то ? Сухая теория - каша в голове. Вот когда, все шишки набьешь - да научишься. MSS, за ответ спасибо - я же не прошу за меня все написать, он намекнул где "ковырнуть", я в свою очередь открыл новый для себя пласт знаний, с чем можно посмотреть, почитать, поработать. И вот какая штука, мой кривой "Y" нормально работает даже, в своем самом извращенном виде. А искомый "X", чего то не клеится пока. Я про TImageList: во первых там все изображения, должны быть одинакового размера - у меня они разные - т.е это дополнительный гемор с преобразованиием размера видимо уже после извлечения из TImageList во вторых хрен с ним с размером, но нет реакции на MouseLeave, на MouseMove есть. я понимаю - "ПОНИМАЮЩИХ" , все эти мои "мановения мыши" наверно раздрожают ну, а на какое событие мне реагировать, если по задумке это событие наведение курсора на картинку ? в третьих я так понимаю если все хранить, в TImageList или в ресурсном файле - это путь увеличения размера исполняемого файла (exe) программы, что тоже не всегда гуд Ладно, буду искать свою "золотую середину" - спасибо за внимание. 0

@krapotkin
	05.04.2015, 21:50
	Не по теме: 1. ТС - это топик стартер, как-то на форумах уже общий момент. так что постарайтесь без обид 2. "потому что нужно вопрос задавать - как сделать то, что нужно сделать, а не то, что делать не нужно" ))) перевожу: если бы мы знали всю задачу, а не ее обрывок... может, и решается она совсем по другому, без изобретения велесопеда 3. есть еще вопросы, не относящиеся к программированию. например, загружать картинку с диска непрерывно - это к области здравого смысла относится, а не к пластам знаний 4. от того, в программе хранится файл, или рядом с ней, размер потребляемого на диске места не изменяется. кроме того, при загрузке программы система не грузит ее полностью в память, так что и тут никакого проигрыша. храните в exe на здоровье 0