【结帖】光标定位问题**

beidou

这样只有那个字段列变色；不会把每个字段都写一下赋颜色值吧？

jiahaiminghr

是的，目前是根据每个单元格的显示文本来判断的。所以导致同一行的其他单元格无法判断颜色。

beidou

请帮忙解决一下根据如上条件，能改变一行的问题。

zfang

那用下面的方式吧，比如要根据datagrid的第二列的值来控制颜色显示的话，用下面的代码看看
  if (ANode.Strings[1] = '4')
     then
  begin
    AFont.Color := Business.System.Graphics.clRed;

效果图

beidou

如果只根据一个字段来控制两种颜色OK了。
但是，发现，如果一个DataGrid中的A字段为0显示红色；字段B为0显示蓝色；字段C<>' '显示黑色，就不能实现了。如下代码：

if (ANode.Strings[16]='0') or (ANode.Strings[16]='') then
      begin
        AFont.Color := Business.System.Graphics.clWhite;
        AFont.Color := Business.System.Graphics.clRed;
      end;

    //已分摊完成
      if ANode.Strings[17]='0' then
      begin
        AFont.Color := Business.System.Graphics.clWhite;
        AFont.Color := Business.System.Graphics.clGreen;
      end;

   //已结算
      if ANode.Strings[13]<>'' then
      begin
        AFont.Color := Business.System.Graphics.clWhite;
        AFont.Color := Business.System.Graphics.clBlack;
      end;

       if (ANode.Strings[17]<>'0') and (ANode.Strings[17]='') and (ANode.Strings[16]<>'0') and (ANode.Strings[13]='') then
       begin
         AFont.Color := Business.System.Graphics.clWhite;
         AFont.Color := Business.System.Graphics.clBlue;
       end;

zfang

那楼上的就不能那么写了吧，关键是你条件的控制。

zfang

比如说这样
  if (ANode.Strings[1] <> '4') and (ANode.Strings[2] <> '4') then
    AFont.Color := Business.System.Graphics.clBlue
  else
  begin
    if ANode.Strings[1] = '4' then
    begin
      AFont.Color := Business.System.Graphics.clRed;
    end
    else
    begin
      if ANode.Strings[2] = '4' then
        AFont.Color := Business.System.Graphics.clGreen;
    end;
  end;
关键看楼主你自己的条件依据

效果图

beidou

搞定了，关键是我忽略了几个隐藏列，谢谢！

zfang

好，不客气，揭帖！