发信人: mengy (LEAR DLLS 命令时，将从内存中清除), 信区: BorlandDev
标  题: 在Delphi中随意控制DBGrid 每一行的颜色
发信站: 哈工大紫丁香 (2001年03月13日18:10:06 星期二), 转信


在Delphi中随意控制DBGrid 每一行的颜色 <<上一篇 下一篇>> 
  ---- 有个问题是在Delphi中使用DBGrid时，如何让DBGrid中每一行颜色按照用
户自己的意愿控制。最初看到这个问题时，我们以为非常非常简单，所以马上动手
准备解决它。结果却发现不是那么回事，传统方法根本不能发挥作用。在电脑面前
一直坐到凌晨4点，不断地调试，幸运地是凭借平时积累的一点编程经验，终于找
到了开门的匙钥。现将它充公，供大家享用。 

---- 1、 数据表的建立 

---- 在Delphi的工具菜单中选择Database desktop，在数据库DBDemos下建立一个
名为example.db的数据表。数据表的字段和内容如下： 

              
Name    Age Wage
张山    25  500
王武    57  1060
李市    30  520
刘牛    28  390
　

---- 2、创建基于TDBGrid的TColoredDBGrid组件 

---- 在Delphi组件菜单中，选择New Component,在弹出对话框中作以下设置： 

Ancestor Type  =   TDBGrid
Class  Name   =   TColoredDBGrid
　

---- 然后单击OK按钮，Delphi自动完成组件基本框架的定义。增添
OnDRawColoredDBGrid事件并使它出现在Object Inspector的Events中以便在应用
程序中设定改变行颜色的条件。重载DrawCell方法，只能自己绘制单元格。不能通
过在OnDrawColumnCell来设置颜色，因为在OnDrawColumnCell改变单元格的颜色会
再次触发OnDrawColumnCell。 

---- 下面就是所创建组件的源程序 。 

---- 3、建立应用程序进行验证。 

---- 在Delphi文件菜单中选择New建立新的应用程序工程Project1和主窗体Form1
，设置Form1的Caption属性为“控制DBGrid行颜色的示例”。在主窗体上添加Data
 Source、Table、Button和ColoredDBGrid组件。设置各组件的属性如下： 

Table1.Database=’DBDemos’
Table1.Tablename=’example.db’
Datasource1.Dataset=Table1
ColoredDBGrid1.Datasource=DataSource1
Button1.Caption=’退出’
　

---- 在ColoredDBGrid1的onDRawColoredDBGrid事件中输入下列代码，设定由
Wage（工资）来决定在ColoredDBGrid1各行的颜色。 

procedure TForm1.ColoredDBGrid1 DRawColoredDBGrid 
(Sender: TObject;  Field: TField; var Color: 
TColor; var Font: TFont);
Var
  p : Integer;
begin
    p := Table1.FindField('wage').AsInteger;
  //取得当前记录的Wage字段的值。
    if(p < 500) then begin                 
//程序将根据wage值设置各行的颜色。
      Color := clGreen;
      Font.Style := [fsItalic];      
//不仅可以改变颜色,还可以改变字体
    end;
    if(p >= 500) And (p < 800) then
      Color := clRed;
     if(p >=800) then begin
      Color := clMaroon;
      Font.Style := [fsBold];
    end;
end;
//用‘退出’按钮结束程序运行。
procedure TForm1.Button1Click(Sender: TObject);
begin
Close;
end;
　

---- 4、程序运行结果 

---- 本程序在win98（中文版）和delphi4.0（C/S版）中测试运行，得到预计的结
果：第一行和第三行变为红色，第二行变为棕色，第四行为绿色，满足了基本要求
。 
   
 
  如果你有什么好的资料，可以寄给我哟:) <<回到首页 <<上一篇 下一篇>> 



------------------------------------------------------------------------
--------
  Delphi 技巧集 
   
  Copyright 1999.11 by 东子 Mail to me! 
感谢广州视窗提供主页空间 


--

       大海无边天做岸
               山登绝顶我为风

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.227.121]