Получить параметр для динамического

[romanzi]

Есть 8 динамических изображений, вместе они образуют массив.

 parts_player: array[1..8] of TImage;

Мне нужно определить для них всех MouseMove.

Делать 8 различных процедур не очень то хочется, вроде я не индус.

И появилась мысль хранить в каждом parts_player[i] номер самого i, чтобы потом использовать номер в 1 процедуре, вместо 8.

Я решил хранить ид так:

parts_player[i].Tag := i;

Использовать его, как я понял, невозможно...

procedure TForm1.Image4MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if Hiting then
      begin
      parts_player[2].Left := parts_player[2].Left + (x - xNew); // вместо "2" нужен ид того изображение, которое перетягивают
        parts_player[2].Top := parts_player[2].Top + (y - yNew);
end;
end;

Неужели у меня нету выбора, кроме того как делать 8 почти одинаковых процедур??

[Yurk@]

case TImage(Sender).Tag of 
  1 : ;
  2 : ;
  ...
  else
    ...
end;

[Serge_Bliznykov]

дык, Вам же через Sender передаётся тот Image, на котором и произошло событие!

Нужно получить его Tag - не проблема:

procedure TForm1.Image4MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var MyTag : integer;
begin
  MyTag := (Sender as TImage).tag;
  if Hiting then
      begin
      parts_player[MyTag].Left := parts_player[MyTag].Left + (x - xNew); // вместо "2" нужен ид того изображение, которое перетягивают
        parts_player[MyTag].Top := parts_player[MyTag].Top + (y - yNew);
end;

оно?

[evg_m]

parts_player[2].Left := parts_player[2].Left + (x - xNew); // вместо "2" нужен ид того изображение, которое перетягивают

moveimage:=sender as Timage; // здесь даже не id а сразу тот самый объект 
moveimage.Left := moveimage.Left + (x - xNew);

[Человек_Борща]

Использовать его, как я понял, невозможно...

Ну вот почти же решили свою проблему =)

С чего бы это не возможно? Параметр Sender - не для красоты вообще-то.

var
 Obj:TImage ABSOLUTE Sender;
begin
  case Sender.tag of
   ...
  end;
  
end;