发信人: mengy (LEAR DLLS 命令时，将从内存中清除), 信区: BorlandDev
标  题: 如何动态更新DBGrid的颜色
发信站: 哈工大紫丁香 (2001年03月13日18:25:30 星期二), 转信


如何动态更新DBGrid的颜色？(Delphi 3 and 2.0)  <<上一篇 下一篇>> 
  DBGrid控件是一个有许多用户接口的显示数据库的控件，以下的程序告诉您如何
根据显示的内容改变字体的显示颜色。例如，如果一个城市的人口大于200万，我
们就让它显示为蓝色。使用的控件事件为DBGrid.OnDrawColumeCell.

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect:
TRect;DataCol: Integer; Column: TColumn; State: TGridDrawState);

begin

if Table1.FieldByName('Population').AsInteger > 20000000 then

DBGrid1.Canvas.Font.Color := clBlue;

DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);

end;

上面的例子是简单的，但是你可以根据自己的需要扩充，例如字体也变化等，甚至
你可以调用画圆的函数在数字上画上一个红色的圆圈。

　
   
 
  如果你有什么好的资料，可以寄给我哟:) <<回到首页 <<上一篇 下一篇>> 



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


--

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

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