设置dbgrid中选中行的颜色

Question

如何设置dbgrid中选中行的颜色
比如 单击选中第三行 设置第三行为红色

Answer 1

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
    with Sender as TDBGrid do
    begin
        if gdSelected In State then
        begin
            DefaultDrawing := false;
            Canvas.Brush.Color := clRed;
        end;
        DefaultDrawColumnCell(Rect, DataCol, Column, State);
     end;
end;

Answer 2

如果用第三方控件IP4000
里面的WWDBGrid有相关的属性设置

Answer 3

procedure TMainForm.dbgDetailDrawColumnCell(Sender: TObject;
    const Rect: TRect; DataCol: Integer; Column: TColumn;
    State: TGridDrawState);
begin
    if not tblTempDetail.Active then Exit;
    if (tblTempDetail.RecNo mod 3) = 1 then
        dbgDetail.Canvas.Brush.Color := clInfoBk;
    if (tblTempDetail.RecNo mod 3) = 0 then
        dbgDetail.Canvas.Brush.Color := $00ECF2FF; //$00BED9FC;
    if (tblTempDetail.RecNo mod 3) = 2 then
        dbgDetail.Canvas.Brush.Color := $00F7FFEE; //$00DFFFBB;
    if TCustomDBGridTracker(Sender).DataLink.ActiveRecord = TCustomDBGridTracker(Sender).Row - 1 then
    begin
        dbgDetail.Canvas.Brush.Color := clYellow;
        dbgDetail.Canvas.Font.Color := clred;
    end;

Answer 4

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
    with Sender as TDBGrid do
    begin
        if gdSelected In State then
        begin
            Canvas.Brush.Color := clRed;//背景色
            
            // Canvas.Pen.Color := clRed; //字体色
        end;
        DefaultDrawColumnCell(Rect, DataCol, Column, State);
     end;
end;
====CSDN 小助手 V2.0 2005年10月16日发布====
CSDN小助手是一款脱离浏览器也可以访问Csdn论坛的软件
界面：http://blog.csdn.net/Qqwwee_Com/archive/2005/10/16/504620.aspx
下载：http://szlawbook.com/csdnv2/csdnv2.rar为神六喝彩，向所有科技工作者致敬！
拒绝日货。