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

[chinaandys]

http://bbs.2ccc.com/attachments/chinaandys_200522011437.jpg


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


当单击 部门编号时 则这一列的显示为白色的

当单击 负责人 ..........

当单击 部门名称 .......................

[我和我的蓝天白云]

一行可以，一列不知道行不。

[smiler007]

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;