如何给DataGrid的某几条记录着色

shangxy

不要在上面的事件中循环数据集.
procedure TSJWG1.DataGridClick(Sender: TObject);
begin
   datagrid.BeginUpdate;
   s := DataSetBrokerBZSJJ1.DataSet.FieldByName('zd2').AsString;
   DataGrid.OnCustomDrawCell :=MyDataGridCustomDrawCell;
   datagrid.EndUpdate;
end;

procedure TSJWG1.MyDataGridCustomDrawCell(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);
begin
       if  DataSetBrokerBZSJJ1.DataSet.FieldByName('zd1').AsString=s then
       AFont.Color := Business.System.Graphics.clred;
end;
我的这段代码就是先把字段2的值记录下来，然后在字段1中找到相同的值那么这行就改变颜色，不知道你是否想要这个效果？

zykj

恩。是我想的那样。我马上试试。先谢了。

zykj

可以了。但是出现个问题。点击选中某条DataGrid记录要修改时，改不了了，光标不能停在录入框中

shangxy

设置一个变量Boolean类型，
双击的时候变量设置成true，可以编辑，在编辑以后把变量设置成false，在单击事件中判断一下变量的值为false的时候重画。

procedure TSJWG1.DataGridClick(Sender: TObject);
begin
  s := DataSetBrokerBZSJJ1.DataSet.FieldByName('zd2').AsString;
   if not isedit then
   begin
   datagrid.BeginUpdate;

   DataGrid.OnCustomDrawCell :=MyDataGridCustomDrawCell;
   datagrid.EndUpdate;
   datagrid.Invalidate;
   end;
end;
procedure TSJWG1.FormDocCreate(Sender: TObject);
begin
isedit:=false;
end;

procedure TSJWG1.DataGridDblClick(Sender: TObject);
begin
   isedit:=true;
end;

procedure TSJWG1.DataSetBrokerBZSJJ1AfterPost(DataSet: TDataSet);
begin
   isedit:=false;
end;

procedure TSJWG1.DataSetBrokerBZSJJ1AfterEdit(DataSet: TDataSet);
begin
       isedit:=false;
end;