Передать переменную в процедуру-реакцию

[Kronos913]

Итак...
Есть массив объектов (в данном случае изображений, но чаще такое используется для кнопок), и есть процедура которая обрабатывает нажатие на них

При настраивании объектов есть строчка

OnMouseDown:=ImgClick;

Но вот какое дело. Хотя и обработка нажатия происходит по одному алгоритму, потом в самой процедуре все равно нужно отловить, на какое именно изображение было совершено нажатие:

  for i:=1 to 21 do begin
   if Sender=Img[i] then begin
    j:=i;
    break;
   end;
  end;

Вопрос: можно ли как-то сразу передать в процедуру числовую переменную, которая будет соответствовать номеру элемента в массиве? Чтобы не городить этот цикл поиска

[northener]

При создании массива объектов их индексы в массиве можно запоминать в свойстве Tag

[Kronos913]

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

При создании массива объектов их индексы в массиве можно запоминать в свойстве Tag

Хорошо, а как потом получить Tag вызвавшего объекта в процедуре-реакции?

[northener]

TComponent(Sender).Tag

[digitalis]

Вот меня тоже заинтересовало в этой теме. С разрешения ТС задам вопрос:
Есть несколько Edit'ов, не оформленных в массив (массив, я полагаю, можно создать только динамически, в .dfm нет способа описа'ть массив ?), а у каждого своё имя и свой Tag, все обрабатываются одним обработчиком. Как лучше занести текст в именно тот Edit, на котором кликнули? Я сейчас в цикле опрашиваю все контролы, и если он Edit с нужным нам тегом,то пишем в него. Есть ли путь короче? Можно при активации формы проверить все контролы, их индекс в форме и Tag, занести в массив, если контрол этот - Edit. Всё равно тогда перебор в цикле, только уже в массиве. Это работает. Есть идея получше?

   n := Form1.ControlCount ;
   For i := 0 to n-1 do
     begin
        if (Form1.Controls[i] is TEdit)  and  ((Form1.Controls[i] as TEdit).Tag = MyTag) then 
             begin 
                  (Form1.Controls[i] as TEdit).Text := ........
                   Break
              end ;

[northener]

Если нужно занести текст именно в тот, на котором кликнули, то не надо переборов.

if Sender is TEdit then TEdit(Sender).Text:=...;

[digitalis]

Мерси! Попробую. А то я - в Житомир через Челябинск...
---------------
Попробовал. Если у меня этот обработчик только для Edit'ов, то ещё проще:

TEdit(Sender).Text:=...;

[northener]

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

Попробовал. Если у меня этот обработчик только для Edit'ов, то ещё проще:

Щас набежит куча "знатоков", которая будет утверждать, что преобразование типов нужно делать исключительно с помощью оператора AS.

[digitalis]

Может, по фэнь-шую оно так и было бы кошерно, но нам, не_семи_пядей_во_лбу программерам на конкретном компиляторе ... Работает - ну и ладушки. Не заурчит - знаем, кого на помощь звать: as'са.

[northener]

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

Может, по фэнь-шую оно так и было бы кошерно

Только по фень-шую.
Грамотным программистам оператор as не нужен от слова совсем.