Delphi 怎樣多次使用同一個buttom添加圖片??

implementation

{$R *.dfm}

var
  iCurrentImageIndex : Integer;//当前图片控件索引
  ImgList : TList;//Form上的图片控件列表

procedure TForm1.FormCreate(Sender: TObject);
var
  i : Integer;
begin
  ImgList := TList.Create;
  iCurrentImageIndex := 0;

  //收集图片控件
  for i := 0 to ComponentCount - 1 do
  begin
    if Components[i] is TImage then
      ImgList.Add(TImage(Components[i]));
  end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  ImgList.Free;
end;

procedure TForm1.btn1Click(Sender: TObject);
var
  i : Integer;
  img : TImage;
begin
  //循环当前索引
  if iCurrentImageIndex >= ImgList.Count then
    iCurrentImageIndex := 0;

  //当前操作Image
  img := TImage(ImgList.Items[iCurrentImageIndex]);

  //加载图片
  if dlgOpenPic1.Execute then
  begin
    img.Picture.LoadFromFile(dlgOpenPic1.FileName);
    Inc(iCurrentImageIndex);
  end;
end;