试试下面的代码:
procedure TForm1.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
bitmap1:tbitmap;
begin
if (acol=2) and (arow=2) then
begin
BitMap1 := TBitMap.Create;
BitMap1.LoadFromResourceName(HInstance,'THEBITMAP');
with drawgrid1.Canvas do
begin
StretchDraw(Rect, Bitmap1);
end;
bitmap1.free;
end;
end;