вопрос про sender

[marales]

в программе создано несколько динамических картинок со своим onclick. При нажатии кнопки выбираются только те картинки tag которых равен 5. Из этих выбирается какая то одна рандомно, и на ней выполняем процедуру onclick.
Проблема в том, что sender это у нас получается кнопка (button) он вызван. А как сделать чтобы в sender была та самая картинка, которая выбрана случайно, на которой будет выполнено onckick.
Это мне нужно для того, чтобы с ней дальше работать ну типо буду на ней менять одну картинку на другую или tag поменяю.

[marales]

Если кому то поможет случайно выбираю картинки у которых tag = 5, потому что они в массиве. Поэтому имен у них нет, и перебираю массив

[phomm]

Ну по ссылке на картинку - "которая выбирается рандомно" - значит к ней можно обратиться по ссылке - вот и вызывать метод клика.
Если дельфи:

images[индекс].Click;

[marales]

Delphi. нет не получается потому что Sender запоминает что событие произошло от кнопки, а мне нужно сделать так чтобы sender был от image. Например при обычном клике на картинку. sender будет от картинки. но сам клик происходит в КНОПКЕ.

[evg_m]

1. все что есть нужного по работе с Image в OnImageClick переносим в свою процедуру(метод) DoMyImgClick;

TformX =class(TForm)
private
 procedure DoMyImgClick(img: TImage);
....
end;

procedure Tform.DoMyImgclick(img: TImage);
begin
 ....
end;

2. переписываем

procedure Tform.OnImageClick(sender: TObeject);
begin
  ...
  DoMyClick(sender as TImage); //если при настоящем клике надо делать тоже самое
  // что-то еще 
end;

3. в своей кнопке

procedure Tform.OnMyButtonclik(sender: TObject);
var
  r: TImage;
begin
  rimg:=GetRandomImg; //выбираем нужный Image
  DoMyclick(rimg); // делаем с ним то что нам нужно
//и не нужно никаких "кликов" по картинке  
end;

P.S.
DoMyClick это конечно не лучшее имя для нашей процедуры.
Лучше было бы

procedure Tform1.changeTagImage(r: TImage); 
begin
  r.tag:=r.tag+1;
end;

[Stilet]

сам клик происходит в КНОПКЕ.

Ну и что? images[индекс].Click; ты проверял чему становится равным Sender у обработчика клика картинки?
Накрайняк:

images[индекс].OnClick(images[индекс]);

[phomm]

Stilet я проверил сей момент специально в исходниках

procedure TControl.Click;
begin
...
if Assigned(FOnClick) then
  FOnClick(Self);

поэтому наши с Вами коды равнозначны
А вот наличие у картинки готового обработчика событий ТС не указал, поэтому имеет место подход evg_m

[marales]

Всем спасибо, помог вот этот метод:

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

Ну и что? images[индекс].Click; ты проверял чему становится равным Sender у обработчика клика картинки?
Накрайняк:

images[индекс].OnClick(images[индекс]);

[Stilet]

помог вот этот метод:

Странно, учитывая:

сей момент специально в исходниках

marales, где-то в программе ты чего-то недоучел видимо.