就是加入了StringGrid后,编译执行文件!发现此StringGrid的第一个cloumn的颜色为深兰色,我想设为白色或去掉那深兰色!有什么办法吗?

解决方案 »

  1.   

    procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);
    begin
      StringGrid1.Canvas.Font.Color:=clBlack;//黑色字
      StringGrid1.Canvas.Brush.Color:=clred;//红色底
      StringGrid1.Canvas.TextRect(rect,0,0, stringGrid1.Cells[acol,arow]);
      StringGrid1.Canvas.TextOut(rect.Left,rect.Top, stringGrid1.Cells[acol,arow]);
    end;
      

  2.   

    但这样第一列都变红色了~第一列是FixedClo,有办法不变第一列,重第二列开始吗?
      

  3.   

    呵呵,加上
    if col=1 then.....
    就可以了!谢谢!
      

  4.   

    to:发现此StringGrid的第一个cloumn的颜色为深兰色深兰色的原因是由于那个格默认是被选择状态。如果不需要选择STRINGGRID中的内容,可以将DefaultDrawing属性设为false.
      

  5.   

    真是de ,代碼如下:
       
       stringgrid1.column[0].width:=0就ok了阿,怎麼不用腦子呢.