OnClick dinamicamente

[Neftali [Germán.Estévez]]

Empezado por barakuda

Al ejecutar lo que consigo es siempre el mismo mensaje ''prueba Imagen' pero mi intención es que cada imagen que creo le pase (no se como) un showmessage('Timage:'+xx ) diferente a la propiedad OnClick.

Para ello puedes usar el parámetro Sender, que será diferente para cada imagen sobre la que pulses. En realidad ese Sender será exactamente el componente TImage sobre el que has pulsado.
Lo único que debes hacer es realizar un CAST del objeto Sender para poder utilizarlo.
Cambia tu código y prueba esto:

Código Delphi [-]
procedure TForm1.pppClick(Sender: TObject); begin
  if (Sender = TImage) then begin
    showmessage('prueba Imagen: ' + TImage(Sender).Name);
  end;
end

Igual que he accedido à la propiedad Name, puede acceder al resto del componente.