Cita:
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.