办法是有,你得自己画
到stringgrid的canvas上去画吧

解决方案 »

  1.   

    先将stringGrid1的defaultdrawing设为false,然后在它的OnDrawCell中添加如下代码:(只是参考,你可以改改)procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);
    begin
      StringGrid1.Canvas.Pen.Color:=clBlack;
      if (ACol Mod 2)=0 then
      begin
         StringGrid1.Canvas.MoveTo(Rect.Left,Rect.Bottom);
         StringGrid1.Canvas.LineTo(Rect.Right,Rect.Bottom);
      end
      else begin
         StringGrid1.Canvas.MoveTo(Rect.Left,Rect.Top);
         StringGrid1.Canvas.LineTo(Rect.Left,Rect.Bottom);
      end;
    end;