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

菜鸟欧少

于 2016-12-22 09:18:22 发布

阅读量978

点赞数

CC 4.0 BY-SA版权

分类专栏： delphi 技巧 AdvStringGrid 技巧文章标签：图片 addbutton

本文链接：https://blog.youkuaiyun.com/tesily/article/details/53809180

delphi 技巧同时被 2 个专栏收录

19 篇文章

订阅专栏

AdvStringGrid 技巧

8 篇文章

订阅专栏

本文档详细介绍了如何在AdvStringGrid组件中插入并显示JPG和BMP格式的图片，提供了清晰的操作步骤。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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