点击DBGridEh单元格后，让单元格变色（不是整行变色），怎么搞？

[nimeide1234567890]

点击DBGridEh单元格后，让单元格变色（不是整行变色），怎么搞？

DBGridEh1DrawDataCell事件在点击后不会触发，为什么点击不会触发？
DBGridEh1DrawColumnCell事件里能实现吗？

注示：要的是点击后变色

[lyhoo163]

一般在onDrawColumnCell事件中处理 例如：

procedure TMainForm.DBGrid1DrawColumnCell(Sender: TObject;const Rect: TRect; DataCol: Integer; Column: TColumn;State: TGridDrawState);
var i :integer;
begin
  if (Column.FieldName='ITEM_TYPE') and                                         // 指定字段名
     (DbGridEh1.DataSource.DataSet.FieldByName('ITEM_TYPE').AsString='P') then  // 指明 Cell的值
        DbGridEh1.Canvas.Brush.color:=clred;
  DbGridEh1.DefaultDrawColumnCell (Rect, DataCol, Column, State);
end;

[nimeide1234567890]

引用 1 楼 lyhoo163 的回复:

一般在onDrawColumnCell事件中处理 例如：

procedure TMainForm.DBGrid1DrawColumnCell(Sender: TObject;const Rect: TRect; DataCol: Integer; Column: TColumn;State: TGridDrawState);
var i :integer;
begin
  if (Column.FieldName='ITEM_TYPE') and                                         // 指定字段名
     (DbGridEh1.DataSource.DataSet.FieldByName('ITEM_TYPE').AsString='P') then  // 指明 Cell的值
        DbGridEh1.Canvas.Brush.color:=clred;
  DbGridEh1.DefaultDrawColumnCell (Rect, DataCol, Column, State);
end;

这个在点击后能触发？ 并改变这个单元格的颜色吗？

[hongss]

我也在DBGrid里做过这样的，还没做过DBGridEh~~~

就像这样的

[lyhoo163]

引用 1 楼 lyhoo163 的回复:

一般在onDrawColumnCell事件中处理 例如：

procedure TMainForm.DBGrid1DrawColumnCell(Sender: TObject;const Rect: TRect; DataCol: Integer; Column: TColumn;State: TGridDrawState);
var i :integer;
begin
  if (Column.FieldName='ITEM_TYPE') and                                         // 指定字段名
     (DbGridEh1.DataSource.DataSet.FieldByName('ITEM_TYPE').AsString='P') then  // 指明 Cell的值
        DbGridEh1.Canvas.Brush.color:=clred;
  DbGridEh1.DefaultDrawColumnCell (Rect, DataCol, Column, State);
end;

楼主可以参考此代码，修改条件，就是单元变色的效果呀！

[nimeide1234567890]

引用 3 楼 hongss 的回复:

我也在DBGrid里做过这样的，还没做过DBGridEh~~~ 就像这样的

高人能否贴上代码？

[hongss]

这个不是点击变色的，是显示时变色。代码就是1/2楼的。

[nimeide1234567890]

引用 6 楼 lyhoo163 的回复:

[quote=引用 1 楼 lyhoo163 的回复:] 一般在onDrawColumnCell事件中处理 例如：

procedure TMainForm.DBGrid1DrawColumnCell(Sender: TObject;const Rect: TRect; DataCol: Integer; Column: TColumn;State: TGridDrawState);
var i :integer;
begin
  if (Column.FieldName='ITEM_TYPE') and                                         // 指定字段名
     (DbGridEh1.DataSource.DataSet.FieldByName('ITEM_TYPE').AsString='P') then  // 指明 Cell的值
        DbGridEh1.Canvas.Brush.color:=clred;
  DbGridEh1.DefaultDrawColumnCell (Rect, DataCol, Column, State);
end;

楼主可以参考此代码，修改条件，就是单元变色的效果呀！[/quote] 你好，我要的是单击这个单元框后变色。