Kann ich folgende Zeilen irgendwie vereinfachen, das ich nicht für jedes Bild einzeln eine Prozedur schreiben muss?
Delphi-Quellcode:
procedure TForm1.Image1Click(Sender: TObject);
begin
Image1.Picture.LoadFromFile(...);
end;
procedure TForm1.Image2Click(Sender: TObject);
begin
Image2.Picture.LoadFromFile(...);
end;
procedure TForm1.Image3Click(Sender: TObject);
begin
Image3.Picture.LoadFromFile(...);
end;