Delphi中 OnDrawCell的使用技巧

原创 2001年06月07日 15:30:00

Delphi中 OnDrawCell的使用技巧


东南大学 梁云


人们在利用Delphi开发数据库应用程序时,经常使用表格控件制作报表。灵活地使用表格控件的OnDrawCell事件,可以完成一些特殊效果的显示,能更好地满足用户需求。本文介绍灵活使用OnDrawCell事件的三个技巧。

动态更新表格行的颜色

有时需要在报表中动态更新表格行的颜色。例如,在供应商列表中,优先供货的供应商用绿色显示,其他的供应商用红色显示。此时可以在OnDrawCell事件中用如下代码实现:

if Table1.FieldByName(‘CustNo’).AsInteger > 1500 then

DBGrid1.Canvas.Font.Color := clRed;

DBGrid1.DefaultDrawColumnCell(Rect, DataCol,

Column, State)

上述的代码可以根据应用的需要进行扩充。例如需要用黑体显示时,只要将对应行改为:

DBGrid1.Canvas.Font.Style := [fsBold];

在表格中插入其他可视控件

在数据库编程中,外键约束是保证数据库中的数据按用户要求存放的有效方法。例如,在一个订单处理环境中,订单表和客户表之间就存在外键约束,即订单表中的每条记录在客户表中应该有对应项。这样,在填写订单表时,如果在输入焦点提供客户列表供用户选择,将有效地保证数据的正确性。

DBGrid控件和StringGrid控件都派生于TcustomGrid,其中DBGrid控件可以输入数据。Delphi对DBGrid处理的内部机制是在网格上浮动一个DBEdit控件。能够获得焦点、输入数据的网格其实是浮动的DBEdit控件,当焦点转移时把编辑框中的文字显示到表格,其他未获得焦点地方和StingGrid并没有区别,这样就达到了在表格上输入数据的目的。所以,在表格中插入其他可视控件的方法就是在网格上浮动该可视控件。因此从原理上讲,任何控件都可以在表格中插入。本文以在表格中插入下拉框为例,介绍在网格上插入其他控件的具体步骤。

运行结果如图1所示:


图1

1.设置属性

读入客户列表到下拉框的Items属性。

2.设置OnDrawCell事件

OnDrawCell事件在绘制表格的单元格时被触发。当获得焦点的单元格所对应的字段与下拉框所对应的字段一致时,移动下拉框到获得焦点的网格上,并且使下拉框可见,从而达到在表格指定列上显示下拉框的功能。设置表格的OnDrawCell事件如下:

if (gdFocused in State) then

begin

//对应字段一致则执行

if (Grid.Cells[ACol,0]=‘Company’) then

begin

//移动下拉框到指定位置

ComboBox1.Left := Rect.Left + Grid.Left;

ComboBox1.Top := Rect.Top + Grid.top;

ComboBox1.Width :=Rect.Right-Rect.Left;

ComboBox1.Height:=Rect.Bottom-Rect.Top;

// 使下拉框可见并获得焦点

ComboBox1.Visible := True;

ComboBox1.SetFocus;

end;

end;

3.设置OnClick事件

如果获得焦点的单元格所对应的字段与下拉框所对应的字段不一致,下拉框不可见。为此,设置表格的OnClick事件如下:

If (Grid.Cells[Grid.Col,0]<>‘Company’) then

begin

ComboBox1.Visible := false;

end;

4.设置OnChange事件

在OnDrawCell事件中只完成了绘制单元格和显示下拉框的工作,并不能将数据输入到表格。为此,设置下拉框的OnChange事件如下:

Grid.Cells[Grid.Col,Grid.Row]:=ComboBox1.

Items[ComboBox1.ItemIndex];

这样就完成了在表格中插入下拉框的工作。

在表格中显示图形字段

在程序开发中,有时需要在报表中显示一些非常规字符。例如在零件检验报表中的检测项目字段就包含了零件加工粗糙度、加工公差等非常规字符。解决该问题的一般思路是把这些非常规字符作为图形字段存储,例如SQL Server 数据库中的Image字段。但是无论是StringGrid控件还是DBGrid控件,都只能直接显示字符串,这样就产生了如何在表格控件上显示图形字段的问题。

乍一看,该问题可以利用上述办法在表格中插入DBImage控件解决。但是这样需要插入与记录同等个数的控件,更麻烦的是由于OnDrawCell事件触发非常频繁,这样插入的DBImage控件会不停地试图与数据库连接,不仅增加了网络通信量,而且图形字段明显有闪烁感,影响程序的正常运行。更好的解决办法是在连接数据库时动态地创建DBImage控件,利用该控件读取数据库的Image字段,并作为临时文件保存到客户机硬盘。在表格的OnDrawCell事件中读取该临时文件,完成绘制工作,该临时文件在客户退出时被删除。以下是在表格中显示图形字段的具体步骤。

运行结果如图2所示:


图2

1.保存Image字段

在执行查询时读取所有Image字段,并保存到客户机硬盘。

Begin

......// 略去查询语句

FileName:=‘d:/temp/’; //初始化临时文件路径

MyDBImage:=TDBImage.Create(Self);//创建DBImage

MyDBImage.Parent:=self;

MyDBImage.DataSource:=DataSource1;

MyDBImage .DataField:=‘描述’;//指定为“描述”字段

Index:=1;

while not ClientData.Eof do begin //读数据库

s:=IntToStr(Index);

FileName1:=FileName+s;

FileName1:=FileName1+‘.bmp’;

//保存临时文件

MyDBImage .Picture .Bitmap .SaveToFile(FileName1) ; Grid .Cells[0,Index]:=ClientData.FieldByName(‘零件编号’).AsString;

Grid.Cells[1,Index]:=‘’;

//填写表格

Grid.Cells[2,Index]:=ClientData.FieldByName(‘实测数据’).AsString;

ClientData.Next;

Index:=Index+1;

end;

MyDBImage.Destroy(); //释放DBImage

end;

2.拷贝图形

设置OnDrawCell事件,读取临时文件,并将图形拷贝到表格的指定列:

if ((ACol=1)and(ARow>0) and (Grid.ColCount>2)) then begin

//表格至少需要两列

FileName:=‘D:/temp/’;

S:=IntToStr(ARow);

FileName:=FileName+S;

FileName:=FileName+‘.bmp’;

MyImage:=TImage.Create(Self);//创建Image控件

MyImage.Parent:= self;

//读临时文件

MyImage.Picture.Bitmap.LoadFromFile(FileName);

//拷贝图形

Grid.Canvas.Draw(Rect.Left,Rect.Top,MyImage.

Picture.Graphic);

MyImage.Destroy(); //释放Image控件

end;

Delphi中OnDrawCell的使用技巧

人们在利用Delphi开发数据库应用程序时,经常使用表格控件制作报表。灵活地使用表格控件的OnDrawCell事件,可以完成一些特殊效果的显示,能更好地满足用户需求。本文介绍灵活使用OnDrawCel...
  • luoyanqing119
  • luoyanqing119
  • 2008年04月11日 09:57
  • 365

delphi7IDE技巧

1.object Inspector对象观察器,通过快捷键 F11 可以快速打开。
  • u010673851
  • u010673851
  • 2013年12月06日 19:12
  • 774

delphi小技巧总汇

◇[DELPHI]网络邻居复制文件uses shellapi;copyfile(pchar(newfile.txt),pchar(//computername/direction/targer.txt...
  • hlms
  • hlms
  • 2005年04月20日 12:27
  • 1333

delphi中的ActionList使用方法

DelphiActionList详解  一个友好的用户界面,必须具有下拉菜单,弹出菜单,工具条和快捷键。同样一个功能,程序员可能要提供几种操作方式,如文本拷贝,菜单命令 &Copy,快捷键Ctrl+...
  • u010673851
  • u010673851
  • 2014年01月14日 11:19
  • 1418

088_《Delphi开发经验技巧宝典》

本书介绍了1021个delphi开发经验技巧,覆盖了用户程序开发中的各种实际需求。全书共分29章,分别是开发环境、语言基础、程序算法、函数应用、字符与字符串处理技术、日期和时间、数据处理技术、窗体与界...
  • shuaihj
  • shuaihj
  • 2010年12月18日 14:58
  • 1503

Delphi的一些技巧

 版权声明请尊重原创作品。转载请保持文章完整性,并以超链接形式注明原始作者“tingsking18”和主站点地址,方便其他朋友提问和指正。 一、提高查询效率先进行准备查询操作:CustomerQuer...
  • tingsking18
  • tingsking18
  • 2006年02月26日 14:39
  • 1611

Spread控件的使用经验,技巧,方法

Spread的常用事件1   // 单元格编辑结束,焦点离开或者按回车键时                  比如:你要判断当前单元格输入内容是否合法。   private void fpSpread...
  • zhoubl668
  • zhoubl668
  • 2009年06月05日 11:15
  • 4905

Eclipse日常中最实用的技巧,不看后悔哦!

1、给Eclipse添加更方便的提示功能: 首先,默认情况下,Eclipse默认是通过一个.来进行提示的,这样做有些不太方便,如果随便写一个字母就有对应的提示,可以做如下操作: Windows--pe...
  • weiguolong0306
  • weiguolong0306
  • 2015年10月29日 21:42
  • 5024

Delphi开发的一些技巧

[Delphi]Delphi开发的一些技巧 一、提高查询效率先进行准备查询操作:CustomerQuery.Close;if not (CustomerQuery.Prepared) then -->...
  • simonhehe
  • simonhehe
  • 2007年07月19日 14:20
  • 1852

Delphi中SendMessage使用技巧

Windows系统是由消息机制驱动的,每个线程如果建立了一个窗口,则由系统分配一个消息队列用于窗口消息的处理。另外,消息也可以不经过消息队列而利用SendMessage函数直接发送给窗口,窗口过程将处...
  • nedvedno1
  • nedvedno1
  • 2009年08月15日 18:04
  • 2253
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Delphi中 OnDrawCell的使用技巧
举报原因:
原因补充:

(最多只允许输入30个字)