объединить процедуры (Delphi) - Помощь студентам

Joy · 28.05.2009, 16:44

Всем добрый день!
Суть проблемы такова:
есть 10 объектов типа image1,image2,image3..image10
для каждого из них есть свой таймер, в котором записана процедура перемещения сиех имейджев по форме (везде одинаковая, меняется лишь имя имейджа). Помогите пожалуйста запихнуть все это в одну процедуру.

Neeter · 28.05.2009, 16:47

надо имя Image'а изменить на:

Код:

 (Sender as TImage)

И данный обработчик присвоить всем Image'ам

master-sheff · 28.05.2009, 16:48

Используй (FindComponent('имя очередного имаджа') as TImage)

Neeter · 28.05.2009, 16:49

Упс, там ведь таймер... точно...
лучше наверно сделать процедуру в цикле от 1 до 10 и писать уже так:

Код:

(FindComponent('Image' + IntToStr(i)) as TImage)

Joy · 28.05.2009, 17:23

Спасибо вам огромное!
Все работает!

28.05.2009, 16:44	#1
Joy Регистрация: 21.12.2008 Сообщений: 5	объединить процедуры (Delphi) Всем добрый день! Суть проблемы такова: есть 10 объектов типа image1,image2,image3..image10 для каждого из них есть свой таймер, в котором записана процедура перемещения сиех имейджев по форме (везде одинаковая, меняется лишь имя имейджа). Помогите пожалуйста запихнуть все это в одну процедуру.

28.05.2009, 16:47	#2
Neeter Форумчанин Регистрация: 22.02.2009 Сообщений: 875	надо имя Image'а изменить на: Код: `(Sender as TImage)` И данный обработчик присвоить всем Image'ам Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство.

28.05.2009, 16:49	#4
Neeter Форумчанин Регистрация: 22.02.2009 Сообщений: 875	Упс, там ведь таймер... точно... лучше наверно сделать процедуру в цикле от 1 до 10 и писать уже так: Код: `(FindComponent('Image' + IntToStr(i)) as TImage)` Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Последний раз редактировалось Neeter; 28.05.2009 в 16:51.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Объединить макросы	Romuald	Microsoft Office Excel	2	29.03.2009 20:09
Работа с множествами. Вынести процедуры о отдельный Unit. [Delphi]	sergey31	Помощь студентам	4	13.12.2008 12:39
Процедуры открытия и сохранения файлов на Delphi	Kreaman	Помощь студентам	1	09.11.2008 04:48
Программа на массивы и процедуры. Delphi	Alex_2017	Помощь студентам	0	29.05.2008 12:48
перезагружаемые процедуры и функции в delphi	alex9090	Помощь студентам	4	16.11.2007 16:51

28.05.2009, 16:48	#3
master-sheff Пользователь Регистрация: 16.06.2008 Сообщений: 39	Используй (FindComponent('имя очередного имаджа') as TImage)

28.05.2009, 17:23	#5
Joy Регистрация: 21.12.2008 Сообщений: 5	Спасибо вам огромное! Все работает!