各位大大好,又来麻烦大家了

dbgrid左边第一栏我改变成灰色后,每个格子的边框不明显了,能否让这一栏位的边框色彩深一些?比如象栏位头上的边框色那样?

附加檔案：499acc6ae94da_未命名.JPG

編輯記錄

我后来把color改成btnface后,就没有这个问题了

我后来用的彻底解决的方法,共享一下:


procedure Tform1.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
if DataCol =0 then
begin
with (Sender as TDBGrid).Canvas do //画 cell 的边框
begin
Pen.Color := clgray; //定义画笔颜色
MoveTo(Rect.Left, Rect.Bottom); //画笔定位
LineTo(Rect.Right, Rect.Bottom); //画横线
MoveTo(Rect.Right, Rect.Top); //画笔定位
LineTo(Rect.Right, Rect.Bottom); //画竖线
end;
end;
end;