Hola a tod@.
Verán hace tiempo hice un programa donde utilizaba la propiedad OnClick de los TImages de las imágenes que cargaba para, mostrar un mensaje, ir a una dirección de Internet... esto lo hacia de forma estática y en tiempo de ejecución mostraba la imagen mediante el Bitmap.LoadFromFile().
Con ganas de mejorar quiero hacer esto mismo pero dinamicamente:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
ListadeObjetos: Tlist;
I: Integer;
begin
ListadeObjetos := Tlist.Create();
for I := 0 to 3 do
begin
ListadeObjetos.Add(TImage.Create(Form1));
with TImage(ListadeObjetos.Items[i]) do
begin
Parent := HorzScrollBox1;
Height := 100;
Width := 100;
Bitmap.LoadFromFile(GetCurrentDir + '\' + (I + 1).ToString + '.png');
with Margins do
begin
Bottom := 5;
Left := 5;
Right := 5;
Top := 5;
end;
MarginWrapMode := MarginWrapMode.iwStretch;
Align := Align.alLeft;
OnClick := pppClick;
end;
end;
end;
Código Delphi
[-]
public
procedure pppClick(Sender: TObject);
Código Delphi
[-]
procedure TForm1.pppClick(Sender: TObject);
begin
showmessage('prueba Imagen:');
end;
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.
¿Pueden echarme una mano con esto por favor?.