插入 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