用 AdvStringGrid addbutton 中添加图片（BMP/JPG)

插入 JPG格式图片

procedure TForm1.AdvStringGrid8ClickCell(Sender: TObject; ARow,  ACol: Integer);var    jpg: TJPEGImage;begin  if (ACol =0) and( ARow=1) then    begin     opendialog1.Execute;  jpg := TJPEGImage.Create;  jpg.LoadFromFile(opendialog1.Filename);  advstringgrid8.CreateFilePicture(0,1,True,Shrink,0,haCenter,vaCenter).Filename := opendialog1.Filename;  jpg.Free;  end;

插入BMP格式图片

procedure TForm1.AdvStringGrid8ClickCell(Sender: TObject; ARow,  ACol: Integer);var    Bmp: TBitmap;begin    if (ACol =0) and( ARow=1) then    begin     opendialog1.Execute;     Bmp := TBitmap.Create;     Bmp.LoadFromFile(opendialog1.Filename);       advstringgrid8.AddBitmap(0,1,bmp,True,haCenter,vaCenter);       advstringgrid8.Cells[0,1]:= opendialog1.Filename;    end;  advstringgrid8.Refresh;