Question

delphi中DBGrid里的数据满足条件的以显示红色

如何让delphi中DBGrid里的数据满足条件的以显示红色，（DBGrid里的字段包含：用户名，用户类型，电话）条件是用户类型为“免费”的数据列都以红色显示，请给出具体示范源码。

Answer 1

在DBGrid DrawDataCell事件下写:

procedure TForm2.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;

  Field: TField; State: TGridDrawState);

begin

  if Field.Index = 1 then {这里检测第几列 范围0..max}

    if Field.AsString = '免费' then {检测是否免费(你要是用其他类型表示用户类型你可以改)}

    begin

     {这里你随便画反正有Rect}

      TDBGrid(Sender).Canvas.Brush.Style:=bsClear;

      TDBGrid(Sender).Canvas.Pen.Color:=clRed; {颜色}

      TDBGrid(Sender).Canvas.Rectangle(Rect);

      {DBGrid1}

    end;

end;

//下面是既支持列高亮又支持行高亮

type

  TThiefDBGrid = class(TDBGrid)

     property DataLink;

  end;

                    {DBGrid1的DrawDataCell事件}

procedure TFormMain.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;

  Field: TField; State: TGridDrawState);

begin

  if RadioButton1.Checked then

  begin

    if Not (TThiefDBGrid(TDBGrid(Sender)).DataLink.Fields[1{这里是用户类型列号}].AsString = ComboBox1.Text{是否等于'免费用户'}) then

      Exit;

  end

  else

  begin

    if Not ((Field.Index = 1{这里是用户类型列号})and(Field.AsString = ComboBox1.Text)) then

      Exit;

  end;

  with TDBGrid(Sender) do

  begin

    if not CheckBox2.Checked{这里决定字高亮还是背景高亮} then

    begin

      Canvas.Font.Color:= not ColorBox1.Selected;

      Canvas.Brush.Color:=ColorBox1.Selected;{颜色}

    end

    else

    begin

      Canvas.Font.Color:=ColorBox1.Selected;{颜色}

    end;

    DefaultDrawDataCell(Rect,Field,State);

  end;

end;

给你写了个例子演示(如图)

要源码的话留邮箱