delphistringgrid添加图片

1、新建一个项目，点击设置，选择BackGround属性。

2、在窗体添加Image1，即可添加delphistringgrid图片。图片是指由图形、图像等构成的平面媒体。

放入一个Image(Additional里面)控件，然后设置Picture属性就可以了，设置Stretch属性为True，然后就可以通过改动Image控件的大小来调整图片显示的大小了。

给你段代码,希望能有所帮助

var

Field1:TBlobField

msg:TFMessageWindow

begin

var

Field1:TBlobField

msg:TFMessageWindow

begin

msg := TFMessageWindow.Create(application)

msg.SetMessage('正在保存样板，请稍候...')

qzybody.Open

qzybody.append

try

msg.Show

application.ProcessMessages

Field1:=TBlobField(qzybody.Fieldbyname('object_body'))

Field1.LoadFromFile('')

except

end

qzybody.Post

msg.Close

msg.Free

end

qzy.Post

showmessage('保存成功！')

end

你可以把image控件上的图片存入到磁盘,然后通过上面的方法存入到数据库中.

用下面的方式打开该图片:

var

Field1:TBlobField

filename:string

begin

FMain.dqc.DB_AdoQueryRun(qzybody,'select * from myobjectbody where object_id='+qzy.fieldbyname('object_id').AsString)

if qzybody.RecordCount<1 then

begin

showmessage('数据错误!')

abort

end

else

begin

Field1:=TBlobField(qzybody.Fieldbyname('object_body'))

filename:=FMain.dqc.File_CreateTempFile(qzy.Fieldbyname('object_name').AsString)

Field1.SaveToFile(filename)

FMain.dqc.File_ShellOpen(filename)

end

---