在AdvStringGrid单元格中添加按钮
AdvStringGrid8.AddButton(0,1,75,25,'导入图片', haCenter, vaCenter);
1
给按钮添加事件:单击按钮在单元格中插入图片(实际上单击单元格中任意位置都可以)
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;