将stringgrid的defaultdrawing属性改为false,然后:
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
if (acol=1) and (arow=1) then
rect.Bottom:=rect.Bottom+rect.Bottom-rect.Top;
if not((acol=1) and (arow=2)) then
begin
stringgrid1.Canvas.FillRect(Rect);
stringgrid1.canvas.textout(rect.left,rect.top+18,StringGrid1.cells[acol,arow]);
end;
end;