dbgird中如何设置某一列的颜色(50分)

A

ayu310

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-13

• #1

无

 

初

初学者1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-13

• #2

看看demo

 

G

ghuan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-13

• #3

在DBGrid1DrawColumnCell 事件中

if dbgrid1.DataSource.DataSet.RecNo mod 2=0 then
dbgrid1.canvas.Brush.color:=$00BFE4E2 else
dbgrid1.canvas.brush.color:=$00E3FBFB;
dbgrid1.DefaultDrawColumnCell(rect,datacol,column,state);

 

W

wcwcw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-13

• #4

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if (table1.RecNo mod 2)<>0 then
dbgrid1.Canvas.Brush.Color:=clred;
dbgrid1.DefaultDrawColumnCell(rect,datacol,column,state);
end;[]

 

Y

yanlei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-13

• #5

procedure TForm1.DBGrid1TitleClick(Column: TColumn);
begin
Column.Color:=clred;
end;

 

T

TingTao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-13

• #6

这样真的很不错你试试

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if DataCol=1 then
Column.Color :=clred;
end;

 

P

peng_2002

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-13

• #7

楼上的说的不错，我试过了，谢谢楼上的。

 

A

ayu310

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-26

• #8

接受答案了.