StringGrid 选中某个 单元格时，整行 背景换色。

Question

要求：StringGrid 选中 行A中单元格时，行A 背景换色，再选中行B中的单元格时，行B背景换色，行A背景色还原。搞半天，搞不出来，请指教。

Answer 1

直接将StringGrid option属性中的gorowselect设为true即可~~

Answer 2

注意是goEditing=true、goRowSelect=false，如果goRowSelect=true的话就没法编辑了。

Answer 3

将StringGrid option属性中的godrawfocusselected设为true即可~~但不是一行，而是单元格，这样不会那么麻烦写那么多代码~~

Answer 4

用StringGridSelectCell事件.
你点一行,选一种色彩.   也可以,点一格,选种相关的二三行.下面就是平时的源码.
//============================
void __fastcall Tfm_check_box::sgSelectCell(TObject *Sender, int ACol,
      int ARow, bool &CanSelect)
{
// if(sg->RowCount==ARow+1) {   CanSelect=false;  return;  } //最后一行不整行显示
 AnsiString str[2];
 str[0]=sg->Cells[0][ARow].Trim();
 str[1]=sg->Cells[1][ARow].Trim();
 if((str[0]==""&&str[1]=="")||str[0]=="*")       //
 {
  if(ACol==2||ACol==3||ACol==4||ACol==5||ACol==6||ACol==7)
     sg->Options=sg->Options<<goEditing<<goAlwaysShowEditor<<goTabs;
    else sg->Options=sg->Options>>goAlwaysShowEditor>>goEditing>>goTabs;
 }else sg->Options=sg->Options>>goAlwaysShowEditor>>goEditing>>goTabs;
 //=========================
 sg->Refresh();
 TRect irect;
 for(int i=2;i<sg->ColCount;i++)
 {
   irect=sg->CellRect(i,ARow);
   if((str[0]==""&&str[1]=="")||str[0]=="*")
   {
     if(i==2||i==3||i==4||i==5||i==6||i==7) sg->Canvas->Brush->Color=0x0012266B;
     else     sg->Canvas->Brush->Color=0x00C56A31;  // 0x00804000
   }else  sg->Canvas->Brush->Color=0x00C56A31;
   sg->Canvas->FillRect(irect);
   sg->Canvas->Font->Color=clWhite;
   sg->Canvas->TextRect(irect,irect.Left+1,irect.Top+1,sg->Cells[i][ARow]);
 }  //end for
}

Answer 5

噢,你的功能只要sg->Refresh(); 之后就行了.刷新后,原来是什么色彩就是什么色彩.你只需要关注你指定一行要的色彩就行.

Answer 6

我看了下nbzip的代码在Delphi中写下：procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
var Rect:TRect;
    i:integer;
begin
  (Sender as TStringGrid).Refresh;  for i:=1 to (Sender as TStringGrid).ColCount-1 do
  begin
    Rect:=(Sender as TStringGrid).CellRect(i,ARow);    (Sender as TStringGrid).Canvas.Brush.Color:=clGray;
    (Sender as TStringGrid).Canvas.FillRect(Rect);
    (Sender as TStringGrid).Canvas.Font.Color:=clBlack;
    (Sender as TStringGrid).Canvas.TextOut(rect.Left+2,rect.Top+2,(Sender as TStringGrid).Cells[i,ARow]);
  end;
end;
我这个有两个问题：
1、在StringGrid中数据条数比较多时(即 有下拉框)，选择某条数据后，滚轮下翻数据--->没问题；滚轮下翻直至 头几条数据 跑出StringGrid外，此时滚轮上翻，当选中单元格一直往上跑，你会看到 Cells[0,0]里会有数据。
2、选中单元格所在行，最多会有2个单元格是 白格。（当你选中 某行某一单元格时，改单元格为白的 其他为Gray，你再点该行另一单元格时，就会有2个 单元格是 白的，其他为Gray）

Answer 7

使用自画着色(DefaultDrawing=false)：
在OnDrawCell事件中处理你想得到的颜色

Answer 8

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
R: TRect;
i:integer;
begin
  if ARow<>TRect(StringGrid1.Selection).Top then
    exit;
  for i:=1 to (Sender as TStringGrid).ColCount-1 do
  begin
    R:=(Sender as TStringGrid).CellRect(i,ARow);    (Sender as TStringGrid).Canvas.Brush.Color:=clGray;
    (Sender as TStringGrid).Canvas.FillRect(Rect);
    (Sender as TStringGrid).Canvas.Font.Color:=clBlack;
    (Sender as TStringGrid).Canvas.TextOut(r.Left+2,r.Top+2,(Sender as TStringGrid).Cells[i,ARow]);
  end;
end;
初始状态，第一行 背景都为Gray；点击另一行，只有一个单元格背景变了，该行其他单元格背景不变。WHY？

Answer 9

StringGrid1DrawCell这个事件是一直在翻滚的.最好用if state=select then  //这句写错了,只是意思这样
begin
    画格内色彩
end 
else
begin
   如果不选择就画另一种色彩        
end 
//你不能只考虑一种处理方式,因为他是一直在执行的.就是说,你要处理他全部可能出现的结果.
===================================================关于你问我的问题.
在STRINGGRID中,内嵌一个下拉框,因为上翻下翻的问题,一直到下拉框都超界,越出了字符表格框中.呵呵,我也没处理好.
我上次字符表格框内内嵌字符表格框,也出现这问题.因为任务的原因,后来,改变了一下显示方式.我感觉.我们所说的内嵌,只是画在当前客户框中,并没有实际关联到格子内部,形成整体. (暂时没这需求,所以放任一下.呵呵,
如果大家有办法,请告知一下.  个人觉得,这种方式,在很多控件中都实现了,应该处理不是太难(我的意思是看人家的源码找灵感).)----现在我以做任务为主,有空看一下CSDN,要不就是接触或学习别的.对BCB的深入,兴趣不是太大.