DELPHI DBGridEh控件全方位实战教程：功能、应用与编辑统计

3星 · 超过75%的资源需积分: 16 102 浏览量更新于2024-07-24 1 收藏 773KB PDF 举报

本文档深入探讨了DELPHI中的高级表格控件DBGridEh的详尽使用方法，由白波九道整理，适合那些希望充分利用该组件进行复杂数据展示和处理的开发者。DBGridEh作为一个增强型表格组件，提供了丰富的功能和自定义选项，使得在DELPHI应用程序开发中能够创建出高效且用户友好的界面。首先，文档介绍了DBGridEh的功能详解，包括： 1. 定制标题行：支持制作复杂的标题设计，如按钮样式、包含图片的标题、根据状态显示不同图片，以及实现点标题排序。 2. 外观布局：控制表格外观细节，如根据字段值显示小图片、设置复选框、下拉列表、日历、计算器、3D或平面效果，以及对行头列头的启用和关闭等。同时，还涵盖了透明效果、滚动条应用、单元格居中、自适应列宽和颜色设置等。 3. 编辑功能：涉及多行选择、文本多行显示、备注字段、精确小数位数显示、获取单元格序号、金额格式化、无滚动提交数据、一次性插入数据、焦点管理和滚动控制等。 4. 统计功能：涵盖了页脚合计、定制底部汇总行、设置合计行信息、使用TDBSumList进行统计计算及其可能的问题分析。通过阅读这份教程，开发者可以全面了解如何优化DBGridEh的使用，提升其在实际项目中的表现，无论是设计美观的表格界面，还是实现高效的数据处理与展示，都能从中找到实用的技巧和解决方案。

白波九道整理自用版

第13 页

end;

procedure TNewDBGrid.Scroll(Distance: Integer);

begin

inherited;

Invalidate;

end;

procedure TNewDBGrid.SetBackImg(const Value: TBitmap);

begin

FBackImg.Assign(Value);

end;

procedure TNewDBGrid.WMHScroll(var Message: TWMHScroll);

begin

inherited;

if not Focused then Exit;

if DataLink.Active then Invalidate

end;

//----------

procedure TForm1.FormCreate(Sender: TObject);

begin

NewDBGrid:=TNewDBGrid.Create(Self);

with NewDBGrid do

begin

Parent:=Self;

SetBounds(10,10,600,400);

DataSource:=DataSource1;

DefaultDrawing:=False;

OnDrawDataCell:=DBGrid1DrawDataCell;

BackImg.LoadFromFile('d:\无标题.bmp');

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

NewDBGrid.Free;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

ADOTable1.Open;

白波九道整理自用版

第16 页

if Pos >0 then DataLink.DataSet.RecNo :=Integer( Message.Pos)

else begin

SI.cbSize := sizeof(SI);

SI.fMask := SIF_TRACKPOS;

Windows.GetScrollInfo(Handle, SB_VERT, SI);

//DataLink.DataSet.RecNo := SI.nTrackPos;

end;

SB_THUMBPOSITION {,SB_THUMBTRACK}:begin

case Pos of

0: //First;

1: //MoveBy( -VisibleDataRowCount );

2: Exit;

3: //MoveBy( VisibleDataRowCount );

4: //Last

end; //end;

SB_BOTTOM: //Last;

SB_TOP: //First;

end;

注意: 所有会移支数据集当前游标位置的, 都已经打上注释, 这样就应该可以实现你想要的

效果, 但是不知道是否表格内部有没有限制显示范围是跟当前行有关的

离开当前行一定距离就不能移动之类

e) 解决 DBGridEh 滚动条偶尔不准确的 bug

为了解决 DBGridEh 滚动条偶尔不准确的 bug(比如当数据集被过滤后，垂直滚动条就不再准

确反映了)，花了好多时间研究 Ehlib 的源代码。原因就是出在

TCustomDBGridEh.UpdateScrollBar 函数里面对数据集 IsSequenced 的判断有问题。研究了两

3.6 和 5.2 两个版本，都有这个问题，由于每个版本的代码还是有点小差别，就不直接给出

修改方法，只指出原因。

f) DBGridEh 垂直滚动条的问题

DBGridEh 垂直滚动条经常不工作，各种属性有用没用都试过，还是不行。

上网去查，好象大家都有这个问题，可就是没有结果。

找到了一篇分析的还在理，是说 IsSequenced 一返回 false 就不能用了。而设置了过滤条件

IsSequenced 就会返回 false，那不是不让人用了？

找回原说明文档看一下，发现人家说的很明白，只不过这一段没人翻过来，在中文世界就等于没

有，大家都在瞎摸。

简单地说就是：当 RecNo 不可靠时，DBGridEh 可用 SumList 来做指示，所以，只要把 SumList

中的 Active 和 VirtualRecords 设成 True，DBGridEh 的垂直滚动条就正常了。

TDBGridEh and vertical scrollbar.

剩余76页未读，继续阅读

Arbin

粉丝: 25
资源: 12

DELPHI DBGridEh控件全方位实战教程：功能、应用与编辑统计

最全的DELPHI 表格控件DBGridEh使用详解

DELPHI 表格控件DBGridEh使用详解 .pdf

DELPHI 表格控件DBGridEh史上最全使用资料(101页)

DELPHI 表格控件DBGridEh全属性设置详解

DELPHI 表格控件DBGridEh属性设置说明

DELPHI_表格控件DBGridEh.rar

DELPHI_表格控件DBGridEh全属性设置详解___最全的属性设置说明

DELPHI_表格控件DBGridEh史上最全使用资料(101页)（清洁版）

表格控件DBGridEh

DELPHI DBGridEh表格控件高级属性详解：自定义设置与功能指南

最新资源