Dbgrid界面一问，请原谅最后十分，最后十分诚意谢谢各位

Question

http://bbs.2ccc.com/attachments/chinaandys_200522011437.jpg
Dbgrid界面一问，请原谅最后十分，最后十分诚意谢谢各位
dbgrid1
当单击   部门编号时 则这一列的显示为白色的当单击   负责人      .......... 当单击   部门名称    .......................

Answer 1

procedure Tform1.DBGrid11DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  if DataCol = 1 then
  begin
    DBGrid1.Canvas.Font.Color := clBlack;
    DBGrid1.Canvas.Brush.Color := clWhite;
  end;
  DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;