如何更改DBGrid网格线的颜色?

[lyq81404]

如何更改DBGrid网格线的颜色?

[zjqyb]

自己在DBGrid1DrawColumnCell处理一下

[zjqyb]

void __fastcall TForm1::DBGrid1DrawColumnCell(TObject *Sender,
const TRect &Rect, int DataCol, TColumn *Column,
TGridDrawState State)
{


DBGrid1->Canvas->TextRect(Rect,Rect.left,Rect.top,Column->Field->Text);
DBGrid1->Canvas->Pen->Color=clRed;
DBGrid1->Canvas->MoveTo(Rect.Left,Rect.Top-1);
DBGrid1->Canvas->LineTo(Rect.left+Rect.Width(),Rect.Top-1);
DBGrid1->Canvas->LineTo(Rect.left+Rect.Width(),Rect.Bottom);

}