Stringgrid

 if Sender is TStringGrid then
  begin
    with (Sender as TStringGrid) do
    begin
      if (ACol = 1) and (ARow > 1) then
      begin
        Canvas.Font.Color := clBlue;
        Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, Cells[ACol, ARow]);
      end;
      if (ARow = 1) and (ACol > 1) then
      begin
        Canvas.Font.Color := clBlue;
        Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, Cells[ACol, ARow]);
      end;
      if (ACol = 0) and (ARow = 0) then
      begin
        //画斜线
        Canvas.Pen.Color := clBlack;
        Canvas.MoveTo(Rect.Left, Rect.Top);
        Canvas.LineTo(Rect.BottomRight.X + Canvas.Pen.Width, Rect.BottomRight.y + Canvas.Pen.Width);
        //设置Pen
        Canvas.Pen.Color := Canvas.Brush.Color;
        //下面水平线
        Canvas.MoveTo(Rect.Left, Rect.Bottom);
        Canvas.LineTo(Rect.BottomRight.X, Rect.BottomRight.y);
        //右面垂直线
        Canvas.LineTo(Rect.Right, Rect.Top - Canvas.Pen.Width);

      end;
      if (ACol = 1) and (ARow = 1) then
      begin
        //画斜线
        Canvas.Pen.Color := clBlack;
        Canvas.MoveTo(Rect.Left - Canvas.Pen.Width, Rect.Top - Canvas.Pen.Width);
        Canvas.LineTo(Rect.BottomRight.X, Rect.BottomRight.y);
        //设置Pen
        Canvas.Pen.Color := Canvas.Brush.Color;
        //左面水平线
        Canvas.MoveTo(Rect.Left - Canvas.Pen.Width, Rect.Top);
        Canvas.LineTo(Rect.Left - Canvas.Pen.Width, Rect.Bottom);
        //上面垂直线
        Canvas.MoveTo(Rect.Left, Rect.Top - Canvas.Pen.Width);
        Canvas.LineTo(Rect.Right, Rect.Top - Canvas.Pen.Width);
      end;
      //设置标题
      if (ACol = 1) and (ARow = 0) then
      begin
        Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, '难度');
      end;
      if (ACol = 0) and (ARow = 1) then
      begin
        Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, '题型');
      end;
    end;
  end;