如何控制DBGrid1?我没分了...不好意思....(0分)

W

why_119

Unregistered / Unconfirmed
GUEST, unregistred user!
如何控制DBGrid1?我没分了...不好意思....

如:选上的颜色.
列的颜色等...

谢谢大家...
 
着好像很多书里都有的。像是示范让dbgrid每一列都用不同的颜色。
你看看吧。我看得《精通delphi6数据库程序设计》中国铁道出版社
里面就有,你可以看看
 
在dbGrid的DrawColumnCell事件中,比如你要根据某个字段字显示不同的颜色:
procedure Tform1.dbGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if dbGrid1.DataSource.DateSet.fieldbyname('xxx').AsInteger) = 1 then//判断值
dbGrid1.Canvas.Brush.Color := clRed;//设置画笔颜色
dbGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);//重画
end;
 
我不是问行的颜色....是行列线的颜色...
 
换个控件很容易控制
 
with DbGrid.Canvas do
begin
Pen.Color:=clBlue;
MoveTo(Rect.Left,Rect.Top);
LineTo(Rect.Right,Rect.Top);
//...and so on
end;
 
就是在那个事件里面写程序,
使用 DBGrid.Canvas 自己随便写啊
 
接受答案了.
 
顶部