DBGRID中对应的字段中显示图片
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
Bmp: TBitmap;
begin
if Column.Field = Table1IMAGE then
begin
try
Bmp := TBitmap.Create;
Bmp.Assign(Table1IMAGE);
DBGrid1.Canvas.StretchDraw(Rect,Bmp);
finally
Bmp.Free;
end;
end ;
end;