[搞定]DataGrid分组标题颜色控制问题**

ccseasy

分组以后标题如下图所示（1、2、3）。现在有个按钮Butten_a，现在想在点击按钮是控制1、2、3标题的颜色，比如我要以红色显示！怎么实现？？？？

atiger

http://bbs.justep.com/forum.php?mod=viewthread&tid=3152

ccseasy

我想实现自己控制颜色变化问题，如果写在楼主说的事件里，如果条件一边它就自己便颜色了，不能在最后统一变颜色！！

ccseasy

不知说明白没有，也就是图上表的1、2、3都满足了变颜色条件。要求在点击了按钮以后上面的三个标题同时变成红色其他还是原色。不是1标题先满足条件就先变色而是我要在最好统一控制满足我条件的标题统一变色！！

atiger

不能在最后统一变颜色！！
啥意思？没有太了解，请明示一下，谢谢

atiger

哦，4楼好像没有好的方法，

yancm

提供一个思路。
设置一个变量：buttonclicked: boolean;
在窗体创建时，buttonclicked:=false;
在按钮点击中将buttonclicked置为true;
在绘制事件处理中判断，if buttonclicked = false then exit;

ccseasy

procedure TZXDT.DataGridCustomDrawCell(Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TTreeListNode; AColumn: TTreeListColumn; ASelected, AFocused, ANewItemRow: Boolean; var AText: string; var AColor: Integer; AFont: TFont; var AAlignment: TAlignment; var ADone: Boolean);
var
  i,j:integer;
begin
  if b_flag=false then  exit; //不交卷，则返回
  if ANode.HasChildren and not ANode.Selected then
  begin
    //按照答题的对错控制标题的颜色
    //外面的循环存储答题的结果和题目信息；里面的循环和当前DataGrid的标题进行对比，如果相同并且答错就置红！

    for j:=0 to  DataGrid.ColumnCount - 1 do
    begin
       for i:=0 to ts_title.Count - 1 do
       begin
         jsdialogs.ShowMsg(SysUtils.trim(ANode.Strings[j]),ts_title);
         jsdialogs.ShowMsg(ts_title,ts_ruslt);
         if SysUtils.trim(ANode.Strings[j]) =ts_title then
         begin
           //判断设置什么颜色
           if ts_ruslt='0' then
              AColor :=$00000FF      //设置红色
           else                      //设置默认色
              AColor :=-2147483633;
           //------------------------------------------------------
           break;//如果有相同的就返回，看下一个
         end;
       end;
    end;
  end;
  b_flag:=false; //标志设置为假，即只有在点击交卷以后才再变颜色
end;
//帮我看看上面的代码对不呀，

ccseasy

为什么 SysUtils.trim(ANode.Strings[j])这句话总是一个值呀！！不管j为几他的值都一样。
我在这个事件里循环取一楼图中每个标题值是这么取吗？应该不是吧！怎么取呀？

ccseasy

结帖吧，现在已经搞定！！