关于StringGrid和DBGrid的问题? 如何使StringGrid或DBGrid中的若干行的背景色为红色,文字为白色? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 DBGrid.OnDrawColumnCellTDBGrid(Sender).Canvas.Brush.Color := clNavy ;TDBGrid(Sender).Canvas.Font.Color := clRed ;TDBGrid(Sender).Canvas.FillRect ( Rect ) ;TDBGrid(Sender).DefaultDrawColumnCell ( Rect , DataCol , Column , State ) ; 1.dbgrid//背景为红色procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);begin form1.DBGrid1.Canvas.Brush.Color:=clred; form1.DBGrid1.Canvas.Pen.Mode:=pmmask; form1.DBGrid1.DefaultDrawColumnCell(rect,datacol,column,state);end;直接设置dbgrid的font属性中的color为clwhite; 同意楼上的,但是我想问个问题:如果我想实现“window 优化大师”那样当鼠标指向dbgrid中的一行某一列的时候能够通过一个浮动条来提示该列的内容呢 ?谢谢 能够通过一个浮动条来提示该列的内容呢 ?Reply:showhinthint:=... delphi求10位唯一值随机数(含数字+字母) 怎样实现鼠标移出窗口范围时,窗口自动隐藏? 发一小小工具:系统路径设置 一个读取数据到数据库的问题? 小问一把,大家参与 高分请教关于TStream和olevariant的问题 鼠标状态问题 如何把在listview中被选中的图片传给image? 我靠,有源代码!是DELPHI高手的请进~~ 谁能介绍基本好的DELPHI书给我吗? 灌水乐园真是趣文不断,大家快看看! 那里有DELPHI程序代码下载
TDBGrid(Sender).Canvas.Font.Color := clRed ;
TDBGrid(Sender).Canvas.FillRect ( Rect ) ;
TDBGrid(Sender).DefaultDrawColumnCell ( Rect , DataCol , Column , State ) ;
//背景为红色
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
form1.DBGrid1.Canvas.Brush.Color:=clred;
form1.DBGrid1.Canvas.Pen.Mode:=pmmask;
form1.DBGrid1.DefaultDrawColumnCell(rect,datacol,column,state);
end;
直接设置dbgrid的font属性中的color为clwhite;
但是我想问个问题:
如果我想实现“window 优化大师”那样当鼠标指向dbgrid中的一行某一列的时候
能够通过一个浮动条来提示该列的内容呢 ?谢谢
能够通过一个浮动条来提示该列的内容呢 ?Reply:showhinthint:=...