在AdvStringGrid单元格中添加按钮及按钮事件

AdvStringGrid8.AddButton(0,1,75,25,'导入图片', haCenter, vaCenter);

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;

end;