原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
DelphiEhLib控件使用说明
EhLib控件的使用说明
一. DBGridEh组件：
属性。
使用统计栏功能
设置统计栏行数，将DBGridEh.FooterRowCount := 1
设置激活统计功能，将DBGridEh.SumList.Active := True;
选择所统计字段的统计方式，如将Columns[n].Footer.ValueType := vtSum;
复杂标题.
? ? （1）标题行可设为2行以上高度，并可以为多列创建一个共同的父标题行。为实现这个效果，需在各个列标题属性中以“｜”分隔父标题和子标题，如办公用品包括代码和名称两部分，具体属性设置如下：
usemultititile=true;
titlelines=2
DBGridEh.Columns[0].Title.Caption := 办公用品|代码;
DBGridEh.Columns[1].Title.Caption := 办公用品|名称;
?（2）标题行显示图片
? ?首先添加一个imagelist组件img1并在其中添加一组bmp,ico格式的图片。然后将DBGridEh的TitleImages设置为img1.最后在需要显示图片的列标题的imageindex中设置需要显示的img1中图片的序号。
实现 DBGridEh 隔行分色显示
procedure TForm1.DBGridEh1GetCellParams(Sender: TObject; Column: TColumnEh;
?AFont: TFont; var Background: TColor; State: TGridDrawState);
Begin
? ? if DBGridEh1.SumList.RecNo mod 2 = 1 then
? ? ? Background := $00FFC4C4
? Else
? ? ? Background := $00FFDDDD;
end;
DBGridEh 在某些条件下某行显示特定颜色
procedure TForm1.DBGridEh1GetCellParams(Sender: TObject; Column: TColumnEh; AFont: TFont; var Background: TColor; State: TGridDrawState);
begin
? //在 name 字段值为 aaa 的行设置行背景色（ado 设置情况下）
? if ADOQuery1.FieldByName(name).AsString = aaa then ? ? ? Background := $00FFC4C4
? //在 xm 字段值为 Li ming 的行设置行背景色（bde 设置情况下）
? else if DBGridEh1.DataSource.DataSet.FieldByName(xm).AsString = Li ming ?then
? ? ? Background := $00FFC4C4
? Else
? ? ? Background := $00FFDDDD;
end; ?
在dbgrideh中允许选择多行，如何知道哪些行被选中？是个BOOKMARK类型的属性。
SelectedRows: TBookmarkList
procedure TForm1.Button1Click(Sender: TObject);
var
i, j: Integer;
s: string;
begin
if DBGrid1.SelectedRows.Count0 then
with DBGrid1.DataSource.DataSet do
for i:=0 to DBGrid1.SelectedRows.Count-1 do
begin
GotoBookmark(pointer(DBGrid1.SelectedRows.Items[i]));
for j := 0 to FieldCount-1 do
begin
if (j0) then s:=s+, ;
s:=s+Fields[j].AsString;
end;
Listbox1.Items.Add(s);
s:= ;
end;
end;
显示自动提示
设置DBGridEh控件的showhint属性为true，然后设置需要显示自动提示的字段的ToolTips属性为True。
自动排序。
设置OptionsEh.dbgAutoSortMar
文档评论（0）